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ABSTRACT 


Resource Management iS an important aspect of 
Management in today's construction projects. Companies 
now have to consider the impact of available resources 
not only for individual projects, but for multiple 
projects considered together as well. This report 
reviews the various methods currently available in the 
industry for the managing and leveling of resources. 
These methods include both manual and computer assisted 
solutions. Each method is evaluated with respect to 
its capability to assist the construction firm in 
Managing single and multiple projects. In addition, 
this paper makes recommendations on the types of 
computer programs which would be most advantageous to a 


given type of user. 
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CHAPTER 1 
OVERVIEW 


milo Lntcroenuction 

Management of resources should be of primary interest 
to a construction firm that wants to be profitable, but 
many firms do not bother to actively manage or control 
resources until a resource crisis iS upon them. Resource 
management is important for any given project or contract, 
but the need is even greater when a construction firm is 
working on several construction projects concurrently. 

In the construction industry, the relationship between 
resource management and a logic network, such as CPM, is 
that of a partnership. Essentially all logical methods of 
resource management are based upon the use of a network 
output which provides optimal starting and finishing dates 
for each activity Be phase of work. Resources can be 
attributed to each scheduled activity, and from the 
resulting related information the resource requirements can 
be determined. 

1.2 Resource Definition 

A resource is anything which is necessary or desirable 
for the completion of a construction project. As you can 
see this is a very broad definition and it includes 
thousands of items. However, relatively few resources are 
relevant for any given project or construction firm. The 
number of resources which are relevant to a firm may range 
from as little as one to aS many as several hundreds or 
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thousands depending on the size of the firm and the size 
and complexity of the project. 

Although there are thousands of resources which 
construction firms may want to control, nearly all will 
fall into one of six general categories. These general 


categories are: 


tt Money, e.g. cash flow restrictions. 

7a Time, e.g. contract time, seasonal weather 
restrictions. 

ce Material, e.g. brick, concrete, form lumber. 

4. Manpower, e.g. masons, carpenters, steel workers. 

Bx. Equipment, e.g. trucks, mortar mixers, cranes. 

a Subcontractors, e.g. electrical subcontractors 


1.3 Time and Money Management 


Neneyrs tt has been argued, is the only resource which 
must be managed, since all other resources can be reduced 
to dollar and cent values. For instance, to most 


contractors time is of interest because of its effect on 
overhead costs and any penalties or bonuses related to the 
completion time. Therefore, they argue that time is only 
controlled due to its relation with money. If the effect 
of time was not related to money in any way then there 
would be no need to control time. 

In a similar way, manpower, material, and equipment 
can be converted to a cost. The argument is "If you have 
enough money you can buy anything." If you need more 
carpenters and there is a carpenter shortage in the state, 


you can, for a given cost, relocate carpenters from another 





state or train more. Although the cost is normally 
poom@apitive, the option is available if circumstances 
justify the expense. This process was in fact utilized in 
the case of the Alaskan Oil Pipeline. The bottom line of 
the argument is that the only resource which must be 
managed is money, since all other resources can be acquired 
for a cost and that cost is ultimately the deciding factor 
on which a decision is based. 

Although the above argument is valid to an extent, I 
believe that it is impractical in most projects to 
effectively analyze a project or group of projects with 
only the dollar costs involved. The complexity of trying 
to reduce all relative resources to dollar values and then 
analyzing all of the thousand of options available would be 
overwhelming. Although the reason for managing resources 
other than money is, in fact, to save money, most 
construction firms have made simplifying assumptions to 
facilitate their analysis. For instance many firms will 
not consider hiring outside labor or renting equipment when 
owned equipment is available even if renting is more cost 
effective. It is often company policy, then, which sets up 
the general guidelines which control the resources 
available and not purely the dollar value they may 


represent. 





Time management is accomplished through various 


methods, but the most common in the construction industry 
are the Bar Chart, Arrow Diagrams, and Precedence 
Diagrams. There are some more elaborate and specialized 


methods which are occasionally used such as the Line of 
Balance Method, and probabilistic methods like PERT and the 
Monte Carlo Method. 

Time is managed by producing and following a planned 
schedule. The primary reason this is done is to increase 
profits, although there are other reasons such _ as 
maintaining a company's pride or reputation. However, a 
drive to maintain a good reputation for finishing projects 
on time may in some cases be driven by a fear that a poor 
reputation may lead to a loss of future revenues. 

Since money and time are resources which require 
unique and different types of controls, the rest of this 
paper will focus on the resources of material, manpower, 
and equipment. The term ‘'resources' will hereafter refer 
only to these three unless otherwise specified. 

1.4 Management Methods 

There are two basic ways for a construction firm to 
manage its resources. The first is to merely identify 
resources needed based upon the predetermined early start 
and finish dates for each activity and plan for the 
availability of resources accordingly. By doing this most 
resource shortfalls or conflicts are anticipated, and 
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management is prepared to correct or modify the situation 
before any serious disruption of operations can occur. The 
second way is to manipulate the start and finish dates of 
the project activities to reduce the requirements of a 
given resource on any given day. 

The difference between the two methods can be shown by 
an example. A project has a requirement for 10 carpenters 
On a given day but the company has only eight carpenters on 
the company payroll. The solution using the first method 
is to go to the Carpenters Union Hall or the local non- 
union equivalent and arrange for two additional carpenters 
to show up —_ work when they are needed. The second 
approach would be to note if the work being done on this 
given day for carpenters is comprised of more than one 
activity. If so, one or both activities could be moved 
within their respective float times to reduce the overall 
daily manpower requirements, or if time and money permits, 


the project could be delayed by the required number of days 


to eliminate the need to hire additional personnel. If, 
however, the activity times can not be modified due to cost 
or other constraints, then the options described for the 


first management approach would be undertaken. 

Generally most firms actively controlling resources 
will use a combination of these methods. They will move 
[oources to the greatest extent practical within their 
float times, and further conflicts will be reconciled by 
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recognizing the conflict and arranging for a solution in 
advance by renting extra equipment or hiring additional 
workers for the time period in question. 
1.5 Scheduling Requirements 

The managing of resources and the use of a logical 
scheduling method are inseparable. It is obvious that the 
resource requirements need to be presented in relation toa 
time period such as days, weeks, or months. The manager 


needs to know what his resource requirements are on any 


given day or group of days. There is really only one way 
this listing of daily resource requirements could be 
derived. That method is to develop a schedule covering, as 


a minimum, all work which requires the use of managed 
resources. Once a schedule is developed, the resource 
requirements for Sach activity oor operation can then be 
applied to the schedule. Each activity or portion of an 
activity will have applied to it the resources it consumes. 
From this base information, the project or groups of 
projects can have their resource requirements identified 
and ultimately managed for any given period of time by 


uSing one or more of the methods described in this paper. 





CHAPTER 2 
SCHEDULING METHODS 


2.1 Critical Path Method (CPM) Definitions and 
Descriptions 


Critical path networks are logical scheduling systems 
which produce a listing of start and finish dates for each 
activity identified. 

An activity (or operation) is any portion of a project 
which consumes time, money, physical action, thought 
process, and/or any identified resource, and which has 
definable beginning and ending points. 

The results obtained from a CPM analysis are early and 
late start dates, and early and late finish dates. The 
Manager is also informed of the critical path. An early 
start date is the earliest time (or date) which a given 
activity may begin. This time is based upon any 
restrictions imposed as described below. The early finish 
date is the earliest time which a given activity can be 
finished based upon the early start date and its duration 
(i.e. che time needed to accomplish the activity). Late 
start and finish dates are similar to the early dates 
except that they are based upon the latest dates which work 
can be accomplished without extending the overall project 
completion time as determined by the aggregate effect of 
all the project activities and their respective 


restrictions. 





The critical path is a sequence of activities which 
have the same date for both early start and late start. 
Each activity in that sequence is called a critical 
activity. The significance of the critical path is that 
any — associated with a critical activity will result 
in an extension of the scheduled project completion date. 
2.2 Activity Restrictions 

Restrictions may be imposed on an activity as a result 
of the characteristics of the activity itself, because of 
contract requirements, or because of company policies or 
requirements. - Whatever the origin of the restriction, it 
will be one of two types. The first type of restriction 
generally applies to the relationship between activities 
within a given project. These are the "prerequisite 
condition" restrictions. The second type of condition is 
the resource restriction. 

Prerequisite condition restrictions are based upon 
building trade practices and logical sequences of work. If 
one activity may not start until one or more other 
activities have been completed, then a prerequisite 
condition restriction exists. As an example, consider that 
concrete placement for a wall may not start until the 
formwork is complete and reinforcement steel is in place. 
The prerequisite condition for placement of concrete is 
completed formwork and reinforcement steel. Performing the 
work in any other order and obtaining the desired end 
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product would be functionally impossible. While 


prerequisite conditions are predominantly due to 
constructability requirements, they may be due to 
contractual requirements as well. An example of this may 


be illustrated by considering an asphalt resurfacing 
contract. Suppose the owner has required in the contract 
that the parking lot is to be paved in sections such that 
at least three quarters of the lot is available for use at 
all times. Although there is no constructability 
requirement that prevents the lot from being resurfaced as 
a whole, there is clearly a contractual requirement that it 
be done in quarters. 

A resource restriction represents a condition where 
the resources available are Jlimited or restricted. This 
condition may exist in a number of ways but the most common 
are in relation to manpower and equipment. For example, if 
a general contractor needs ten carpenters to build formwork 
for foundations in one area of a project and ten more 
carpenters to frame out the building in another area of the 
project, but he only has ten carpenters on the payroll, he 
can obviously not have them working in two places at the 
same time. Similarly, a company which owns only one crane 
may at some point need it for two different jobs either on 
the same or different projects at the same time. In both 
of these cases it is the actual resource that is limited. 


The other type of resource restriction occurs when there is 





a physical limit to the amount of equipment or number of 
workers which can work in a given area. An example of this 
is the finishing of a room. It may be impractical for one 
crew of workers to put ina ceiling, while another places 
the floor, and while still another paints the walls even 
though there are no prerequisite condition restrictions 
which would prevent doing the jobs concurrently. Ina 
large auditorium this would not be a problem but imagine 
the difficulty if it was a hotel bathroom. This could be 
termed a constraint on the resource of space. 
2.3 Unlimited Resources 

The critical path methods assume an unlimited supply 
of resources, i.e. the only restrictions considered are the 
prerequisite conditions. This is done for several 
reasons. One reason is the belief that anything can be 
done for a price, meaning, if you pay enough you can 
overcome any resource’ shortfalls. A second reason is 
Simplicity. The listing of prerequisite conditions is 
relatively easy compared to the difficulty of listing all 
of the resource constraints prior to the scheduling of a 
project or group of projects. And a third reason is 
flexibility. This actually relates to the first two 
reasons in that the scheduler is given the flexibility to 
decide if it will be cheaper for the company to hire 
additional workers and rent additional equipment or if it 
is better to delay the project a given number of days and 
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incur the additional overhead costs. In addition, in the 
case mentioned above concerning the room finishing, it 
would be placing excessive conditions on the project to say 
that the ceiling workers must follow the floor workers or 
vice versa. It would be more reasonable to schedule the 
two as if they could both start on the same day but make a 
note on the output to indicate that they may not occur 
simultaneously. The field supervisors can then decide 
which sequence is better based upon current information and 
conditions. 

CPM networks identify the specific critical activities 
which are expected to control the minimum practical project 
completion time. As mentioned earlier, the most common 
methods are Arrow Diagraming, Precedence Diagraming, 
Program Evaluation and Review Technique (PERT), and the 
Monte Carlo Method. Each of these methods has _ its 
advantages and disadvantages, but the use of one of these 
methods is generally recognized as essential for effective 
resource management in a sizeable construction project. 
Some background on the various CPM methods is necessary to 
understand the further application of resources’ to the 
system. 

The basic information or actions which are necessary 
for evaluating each of the CPM methods mentioned above 
includes: 


1. Breaking each project into logical activities. 
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2 Identifying the expected duration for each activity. 
The duration may be in any standard measure of time e.g. 
calendar days, work days, months, etc. 


S'. Identify any dependent (prerequisite condition) 
relations between the activities. This is done by 
specifying which activities must be complete, or ina 


certain phase of completion, before the identified activity 
can begin. 


4. Identify all resources of concern to the manager which 
are required for that activity, if any. 


After these four actions have been accomplished, the 
information for either an arrow diagram or precedence 
diagram is complete, but the PERT and Monte Carlo methods 
need to have additional information. PERT and Monte Carlo 
are statistical methods which consider probabilities in 
determining the duration of the activity. In addition to 
the expected duration, Monte Carlo and PERT require the 
determination of ™ optimistic and a pessimistic duration. 
Regardless of which method is used, the result of the 
analysis is the determination of an early start, early 
finish, late start, and late finish date for each activity 
identified. These results can be graphed ina bar chart. 
In this form the manager Hes an easily read graphical 
representation of when each activity is to be accomplished 
along an identified time line. 

2.4 Line of Balance Method 

A second general type of scheduling is called the Line 

of Balance Method (LOB). This scheduling technique is best 


suited for linear or repetitive construction. 
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The LOB is broken down into definable units called 


operations (or activities). Operations, unlike activities, 
are defined by work rates vice durations. However the end 
result is much the same. The graphed result of the LOB 


scheduling method shows an operation's start and finish 
dates and its relation with the rest of the project or 


other projects. 
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CHAPTER 3 
RESOURCE IDENTIFICATION AND ALLOCATION 


3.1 Resource Identification 

One of the first steps which needs to be taken before 
the project is scheduled is the determination of which 
resources are of concern to the construction firm. It is 
obviously frivolous to track how many hammers’ will be 


needed for a certain activity, especially if all the 


carpenters are required to provide their own tools. What 
needs to be tracked, however, are resources such as 
carpenters, laborers, steelworkers, forklifts, cranes, 
bulldozers, scrapers, etc. The more expensive the resource 


is to the company the more important it is that it be 
managed effectively. Care should be taken not to be 
trifling and consider insignificant resources, or to become 
careless and not consider some very expensive or critically 
short resources. The list of items which are necessary to 
incorporate into the resource management system can also 


change with time. Consider the examples given by Edward 


M. Willis in Scheduling Construction Projects: 


In the spring of 1983, there was a shortage 
of gypsum wallboard throughout the South 
Atlantic region, even though plentiful 
supplies were available in other regions of 
the country. In this instance, suppliers 
rationed the amount of wallboard they would 
deliver io individual customers until 
additional supplies could be brought in from 
other regions. A more serious resource 
shortage occurred in 1973, when there was 
worldwide shortage of copper electrical 
wire. The supply of basic copper had been 
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affected by the global energy crisis that 
was precipitated by the Arab oil embargo. 
Some manufacturers of copper wire gave 
priority for delivery to customers who could 
provide basic copper or scrap copper. 


3.2 Activity Identification 

When scheduling by CPM networks the scheduler must 
consider how ‘(to divide the project into a list of 
activities. The first step is to break the work into 
logical cohesive units with respect to the construction 
process: first build the foundation, then build the walls, 
and then complete the project by building a roof. Each of 
the above three activities can again be broken into 
numerous smaller activities. With respect to the 
foundation, at must first be excavated, followed by 
formwork, reinforcing steel, and concrete placement. These 
activities can be broken down a third time into even more 
specific operations. Excavating te foundation can be 
further refined to machine excavate, then do the fine edge 
work by hand, followed by compacting the excavation bottom, 
and finishing with testing for compaction. The scheduler 
can either make a few broadly defined activities or he can 
be very detailed and specify numerous activities. When 
determining how definite to make the activities the primary 
question the scheduler must be asking himself is, "Who is 


going to use this schedule and for what purpose?" 
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If a schedule is being developed for upper management 
to track the progress of the project, a relatively broad 
approach may be used. However, if this schedule is going 
to be used in the field to control the primary project 
resources of manpower and equipment then a more refined 
approach must be taken. In effect, the activities must be 


refined and narrowed, until the basic resources identified 


above become elemental to each activity. To clarify what 
is meant consider the example above concerning the 
foundation construction. This activity consumes numerous 
man-hours of different trades and different types of 
equipment. If the scheduler had considered this a single 


activity and attempted to allocate all the resources 
required by this activity, he would need to include 


laborers and a backhoe to excavate, carpenters to build 


formwork, steel workers to place the steel, and concrete 
pumps, power trowels, and concrete finishers to place the 
concrete. If this is a project of any appreciable size the 


time consumed to accomplish all of the described work would 
be considerable, with all of the above resources being 


allocated to the activity for the entire duration. This 


would obviously be a gross inaccuracy. The answer is easy 

to see in this case. The scheduler must break his activity 
f 

of foundation construction into the more specific 


activities described above. 
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Whether or not there needs to be further refinement of 
the activities by the scheduler is based upon his best 
judgement. There are practical limits to the refinement 
which is sought due to the effort to keep the schedule from 
becoming unnecessarily cumbersome. He should consider the 
suitability of the activities based upon how well they 
reflect the actual resource consumption as weighed against 
trivial gains in accuracy and adding unnecessarily to the 
complexity of the schedule. 
so Distribution of Resources Over an Activity's Duration 

A general assumption made when allocating resources to 
an activity is that the resource utilization or consumption 
rate is constant throughout the duration of the activity. 
This assumption is made due to its mathematical simplicity 
rather than any reflection of reality. In actual 
Situations resource utilization is seldom uniform. The 
most common case would probably show an increase from a 
lesser level until the optimal rate assumed is attained. 
As the end of the activity draws near the tendency will be 
to decrease resource requirementS over a period of time 
until the activity is ended. The actual variance of 
resource utilization rates within an activity is almost 
endless. A few of the many possibilities are shown on 


Figure 1 in Appendix A. 
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Although the actual variations from the constant rate 
assumption can be seen and even measured in the field, it 
is not practical to attempt applying this to a schedule. 
The problem is that most resource rates for activities can 
not be accurately described in advance of execution, nor 
would a variable rate be suitable for easy analysis. 

3.4 Modification of Constant Resource Rate Utilization 

If the project activities have significant and 
predictable variations there is an option available. The 
scheduler may subdivide the activity in question into two 
or more linear activities. An example of this can be shown 


in the case where a suspended ceiling is going to be put in 


a large meeting hall. The scheduler has the choice of 
defining an activity "install all ceiling tile," or 
dividing this activity into two smaller activities. The 


first would be "place all full size ceiling tiles," and the 
second would be "cut and place partial tiles." If the 
number of workers and the number of tiles consumed daily 
are relatively constant, the one activity would probably 
suffice. However, if the work normally progresses with a 
full crew of workers placing the whole pieces followed by a 
partial crew specially trained to cut and fit the edges, 
then it would be more beneficial to schedule using the two 
activities described above and to allocate the resources 
accordingly. Although this is a rather simplistic example, 
the principle can be carried to cases where resources 
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# 


increase and/or decrease at predicted rates. Under these 
conditions the scheduler can link the activities linearly 
and step the resource requirements of each as appropriate 
to get an approximate representation of the actual 
conditions which will be encountered. Again, caution 
should be used not to overdo the addition of activities. 
Needless breakdown of the project will only lead to 
confusion and excessive control where it produces. no 
beneficial effect. 

3.5 Activity Start Date Determination 

Producing. an adequate schedule anda plan on how to 
execute that schedule is imperative if the contractor is 
going to attain his desired profit. If a well thought out 
plan is produced, updated, and carried out, both the 
contractor and owner can realize a cost savings. 

The contractor has several different ways to develop 
his schedule. The first and most basic is to begin all 
work associated with each activity at the early start 
date. There are however some advantages and disadvantages 
of always starting work on the early start date. The 
primary advantage is that the likelihood of a minor delay 
in any non-critical activity would not adversely affect the 
project duration ong resulting overhead costs. The 
disadvantage is primarily based upon the parallel nature of 
many early start dates. By this I mean that all activities 
which are dependent upon the same activity will have the 


ths, 





same early start. The result is numerous activities may be 
scheduled to start simultaneously at their early start 
dates. The concurrent starting of these activities could 


result in the competition for resources or the inefficient 


use of resources. An example can show the difficulty 
involved. Suppose a one room addition is being made to an 
existing office building. A schedule may have many 


activities dependent upon the covering of the building with 
a water tight roof. Assume that the plastering of the 
walls, the ceiling installation, the placement of floor 
tile, and finish carpentry work can all begin upon 
completion of the roof work. If the contractor plans to do 
all of this work with in house employees, he will most 
likely not have enough workers to execute all of the tasks 
Simultaneously. Even if he has enough workers, the 
situation is analogues to the situation of finishing a room 
described previously. It might be physically impossible 
due to space limitations to do all these activities at the 
same time. In the first case hiring more employees would 
solve the problem, but a solution to both would be to 
stagger the start dates of the activities rather than 
consistently using the early start dates. 

For most contractors, staggering or delaying the start 
of some non-critical, parallel activities is far more 
palatable than hiring additional workers who will only be 
needed for a short time and whose level of skill is 
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unknown. For contractors who are working on more than one 
contract at a time, the additional problem of scheduling 
work with the related resource constraints is further 
complicated. The contractor in this case needs to further 
analyze not only the project being scheduled but also what 
affect that schedule may have on any ongoing projects. 


All this demonstrates that a plan of always using 


early start dates, or always using any specific dates 
whether early or late, is generally not practical and 
therefore not- advisable. Each project must be scheduled 


based upon facts and educated judgement of the people 
involved, who consider the resource requirements within 
that project, plus _ the resource requirement of all the 
current projects under the company's control. This means 
Tot only scheduling the new project but possibly 


rescheduling all of the current or ongoing projects. 
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CHAPTER 4 
MANUAL RESOURCE LEVELING METHODS 


oe”6=| Cun troduction 

Resource leveling is the process described earlier 
whereby schedules are modified to optimize the use of 
resources using float times of an activity or occasionally 
by using a flexible contract completion time. From this we 
can define the two ways to approach resource leveling. 
These methods, as referred to by Robert B. Harris, are 
"Unlimited Resource Leveling" and "Limited Resource 
Allocation."” 

The unlimited resource leveling approach has the goal 
of reducing the resource requirements to the greatest 
extent possible without increasing the scheduled project 
time as determined by the critical path. This approach 
places the higher priority on reduction of project overhead 
costs and less on the possible increased resource costs. 
It also assumes that any resulting resource requirements 
can be attained for a reasonable cost. 

The limited resource allocation approach recognizes 
that sometimes it iS more advantageous to incur the 


additional cost of a few days of overhead, liquidated 


damages, and/or penalties, in lieu of incurring the cost 
Or training new employees, or renting additional 
equipment. This approach uses a defined limit on the 


allowable resource demand for any given day or period of 
time. Based upon this limit and its affect on the 
CPM network, the length of the project is determined. 
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Therefore, the limit on projected resource requirements has 
priority over minimizing the project duration. 

Regardless of the approach, however, the ultimate goal 
of resource leveling is to reduce peak and valley demands 
for resources. There are two methods of accomplishing 
this. 

4.2 The Traditional Method 

Harris uses the term "Traditional Leveling Approach" 
to describe one of the simplest manual systematic leveling 
methods. ° This method will review each project day and 
will compare the daily resource requirements against the 
allowable limit (the limited resource allocation 
approach). If that limit is exceeded, a set of 
predetermined steps are taken to reduce the resource 
requirement. 

4.2.1 Solution Steps 

The first step in this method is to determine the 
resource requirements for each activity and develop a CPM 
network with early and late start times, early and late 
finish times, and float for each activity. 

At this point the resource limits must be compared to 
each individual activity requirement to insure that no 
Single activity alone exceeds the allowable limit. If this 
does occur either the limit must be modified, the 
production modified to reduce the daily quantity demanded, 


or the activity in question must be broken into two or more 
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smaller activities which have their individual resource 
limits within the acceptable bounds. 

Once all of the appropriate start and finish dates 
have been determined, the results must be graphed on a bar 
chart. The method for accomplishing this should be to 
first graph all of the critical path bars allowing at least 
one graph block width for each time duration unit used. 
This is generally calendar days, work days, or weeks. For 
simplicity, the time period used here will be ‘'days' 
although any time period would be acceptable given that it 
is used consistently. Following the graphing of the 
critical activities, graph the non-critical activities with 
respect to their early start dates. 

Now that the bar chart has been prepared, the resource 
rate (the resource requirement per time period graphed) of 
each resource in question is applied to each activity bar. 
This can be done by writing the rate adjacent to the bar or 
by having a legend or listing available for reference. If 
only one or two resources are being evaluated it is easier 
to make a note on the activity bar itself. 

The next step is to sum vertically all of the resource 
requirements on a daily basis. © The daily sums are then 


recorded on a line called 0. 


The sum line of O is now analyzed to determine if 
there are any values which are in excess of the 
predetermined limit. If not, the schedule is acceptable as 
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it stands (with respect to the self imposed resource 
limits) and no further analysis is required. If, however, 
the results of the first summation show values above the 
limit, some of the eee will need to have their start 
dates delayed. 

The approach to take is to find the first day in which 
the resource requirement exceeds the allowable value. Move 
vertically through the bar chart to the activity or 
activities contributing to that particular resource. 

Move that bar to the right (i.e. delay the activity 
start date) one day. Enter a line below 30 with a notation 


showing which activity was moved, which direction and how 


many days it was moved. The notation used by Harris is 
"C>1", which indicates activity C was moved to the right 1 
day. 


The summation needs to now be corrected to show the 
new situation. To do this add and subtract as appropriate 
from the 30 line the resource rate of the activity moved. 
Show these values with their correct signs on the line 
noted as C1. 

The next step is to create another summation line 
called S31. This line will show the summation with respect 
to the first change made to the schedule. If this new 
summation line shows that all the daily resource 


requirements are met then the process is complete, if not, 
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then go again to the non-critical activity causing the 
excessive requirement and move it a day. 

The process of moving activities to the right within 
their float and then re-summing and reevaluating continues 
until either all float is consumed or all resources have 
been brought under the required limit. At this point if 
there is still an excess of resource demand on any given 
day, the answer is to extend the project duration and to 
move a critical activity a day at a time until the resource 
requirements are within acceptable limits. A relatively 
Simple example of this analysis is shown in Appendix B, 
Figures 1 through 4. 

4.2.2 Problems - 

The biggest problems with this method are that it does 
not truly level the work to the greatest extent possible, 
it tends to excessively load resources at the end of the 
project, and it is very cumbersome to work with for any but 
the simplest of projects. 

The problem of not leveling the project to the 
greatest extent possible can be alleviated with some 
additional effort following the reduction of all daily 
requirements below the limit. What needs to be done is to 
review the resource peaks and see if movement of the 
related activities within their respective floats would 
smooth out some of the peaks and valleys. This would be 
accomplished in a similar way as above except that a lower 
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resource limit would be used for that limited time period. 
In addition the critical activities would probably not be 
considered for movement since the original resource limit 
was met earlier and any further movement of critical 
activities would result in extending the project completion 
times. 

The second problem of excessive loading of resources 
at the end of a project can occasionally be reduced to a 
small degree by examining whether or not any of the 
previously moved activities can be moved back to the left 
(i.e. started earlier) without exceeding the resource 
limits previously attained. The method by which this is 
done is primarily trial and error, however the scheduler 
should be able to visually discount many options and 
thereby minimize the number of options which need to be 
checked. 


The traditional approach becomes complex when large 


projects are involved or more than one resource is 
involved. This complexity stems from the interdependence 
of all the activities and the possible number of 
activities. When activities are moved within their free 


float (days an activity may be delayed without affecting 
any other activity) there is relatively little difficulty. 
However when interfering float is involved i.e. float which 
delays other activities but not the project time, which is 
the more common occurrence, the interdependence of all of 
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the activity bars must be analyzed. The result is not that 
just one activity is moved one day, but that one is 
intentionally moved and another fifteen are affected and 
therefore also moved back one day. This type of 
manipulation leaves a lot of room for error. 

The number of resources which must be leveled can have 
a great affect on the amount of work necessary to level the 
project. If two resources are involved, the first resource 
must be leveled as previously described and then the 
process is repeated for the second resource. There is one 
major problem with this however: moving activities for the 
second resource may increase the daily resource 
requirements for the first resource already leveled. 
Therefore, whenever more than one resource is involved the 
result may be a cyclic solution. After the second resource 
is leveled it may be necessary to go back and reschedule 
based upon the first resource again, and so on. 

There is an alternative to this cyclic solution, but 
the resulting schedule is not as good and the additional 
work is only partially reduced. Using priorities, each 
resource should be ranked based upon its importance. The 
first resource would be scheduled as if it were the only 
resource, and all following resources would be scheduled 
with an effort to bring their rate demands below the set 
limit without adversely affecting any previously scheduled 


resources. The problem here comes from the continual cross 
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checking between resources to see the resulting effect of 
any rescheduling. In addition, scheduling beyond the first 
one or two resources will have very limited effect since 
most activities will be ‘locked in' resulting in very 
limited flexibility. 

4.2.3 Applicability to Multi-Project Management 

The traditional approach can be modified to account 
for multi-project management. This can be accomplished by 
stacking the projects on the same bar chart. The first 
project will have a bar chart produced which is identical 
to the single project example explained above. The second 
project can be graphed just below the first on the same 
sheet. The summation line will then be listed below both 
projects such that it incorporates both projects. The 
activities of either or both projects can then be moved, as 
they were in single project situation, to reduce the 
resource requirements below the limit. 

Care must be taken in the multi-project case to relate 
the two or more projects by date. In the single project 
analysis the actual start and stop dates were irrelevant. 
Whether day one was on January 1 or on June 10 the analysis 
is the same since all activities are related to the initial 
start date. In the multi-project case there is no such 
relation between projects. To represent properly the 
relationship between the two projects they must be applied 
to the same time line. The easiest and clearest way to 
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accomplish this is to apply them to a calendar date 


listing, vice a listing of project duration days which is 


sometimes used for only one project. An alternative method 
may be used but, in most cases it is less practical than 
using dates. For example, it 1s possible to relate all 


trailing projects to the first project by indicating the 
actual number of days by which each trails: i.e., project 
two begins on day ten of project one. This requires the 
planner to first convert all known project dates to elapsed 
time in days and then, upon completion of the leveling, he 


will again have to convert the information back into 


calendar dates. Although this method is possible, it is 
more confusing and less representative of the actual 
condition. It is -much more logical to work with the 


projects using their relation to actual calendar start 
dates, since that is the form it will ultimately take in 
the schedule. 

The complexity of the leveling is increased greatly 
when analyzing multiple projects. By introducing more 
projects, more activities are involved on any given day. 
As a result, the level of difficulty in obtaining a 
reasonable solution is amplified. However, there is not 
the additional problem of dependencies between projects. 
Movement of an activity in project one will only have 
effects on the dependencies and logic of project one, not 


project two. The only likely exception to this would be if 
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the two projects are on the same site and are related by 
being part of some larger master project. 
4.3 Minimum Moment Approach 

The minimum moment approach to resource leveling is a 
method whereby the scheduled duration of the project is 
maintained, while the resource histogram is optimized to 
the greatest extent possible. This is done by reducing the 
peaks and valleys of the histogram into the best possible 
approximation of a rectangle which activity constraints 
will permit. 

The term minimal moment approach is used since it best 
describes the theorem on which the method is based. The 
theorem as stated by Harris is as follows. 

When a given set of elements is arranged 

into a histogram over a fixed set of intervals, 

the minimum moment of the elements exists when 

the histogra is a rectangle over the fixed set 

of intervals. 

Before discussing this method further it is best to 
explain some terms. The first is "back float". Back float 
is the amount of time (usually in days) which an activity 
may be started earlier, i.e. the difference in days between 
the scheduled start date and the early start date. 

Harris also uses the term "improvement factor". The 
improvement factor iS a measure of whether the moment of 


the histogram has been increased or decreased. A positive 


improvement factor indicates a decrease in the moment. 
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This method follows a list of very detailed steps 
which produces an optimized resource histogram within the 
constraints of project time and activity dependencies. 
This optimized value may or may not fall within any known 
resource limits anticipated, and the resulting histogram in 
most cases will not look rectangular. The result will, 
however, have fewer and less pronounced peaks and valleys 
than the original unleveled histogram. 

4.3.1 Method and Procedures 

Only an overview of the method is given below. A 
detailed eeeroach on how to solve for a leveled schedule 
using this method, plus an example, are shown in 
Appendix C. The actual process which occurs when following 
these steps is as follows. 

The first step (after all basic information is 
determined) is to start with the activities which have the 
latest start date, and determine the improvement factors 
for each day of float allowed. The activity is then moved 
the number of days corresponding to the highest improvement 
factor. If the highest improvement factor is negative, no 
movement takes place. A positive improvement factor 
indicates that movement of the activity by the given number 
of days decreases the histogram moment, thereby leveling 
the histogram. A zero indicates there is no improvement, 
but if this is the highest value the activity is moved 
anyway. Although there is no direct or immediate 
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Mineficial effect from the moving of that activity, it 
allows greater free float for activities which occur 
earlier in the project. A negative improvement factor 
indicates that the moment of the histogram is increased and 
the movement of an activity the corresponding number of 
days would be detrimental to the leveling effort. 

The second step is to move consecutively earlier with 
respect to the early start dates and repeat the procedure 
used in the first step. 

When all activities have been moved forward or at 
least tested to see if they should be moved forward, a 
reverse pass begins. This is the last step. The 
improvement factors are again calculated, but this time the 
first activity to be checked is that with the earliest 
start date. The decision on whether or not to move the 
activity is based upon the same rationale used earlier, 
only the number of days which must be checked for each 
activity is not its free float, but its back float. The 
activity is then moved earlier in the schedule as 
improvement factors indicate. 

The reason the reverse pass is used is primarily to 
prevent the problem of loading the resources at the end of 
the project. The reverse pass moves, to the greatest 
extent possible, all activities forward (i.e., earlier) 


which have no detrimental effect on the moment. 
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4.3.2 Problems 

The biggest single problem with this method is it's 
complexity. To learn the method such that a simple ten 
activity project can be solved may take several days. In 
addition there are so many confusing manipulations of 
numbers on the matrices that the chances for a mathematical 
error are also very large. A corresponding problem which 
stems from the complexity is that the individual doing the 
scheduling will have to continually use the method to 
remain proficient at it. If he attempts to perform the 
calculations once every couple of weeks he is going to find 
that he needs to review and relearn the specifics of the 
method. 

In addition to the above the time required to solve a 
problem is extraordinary, again because of the complexity. 
To solve a relatively simple problem such as that given as 
an example in Appendix C, may take up to two or three 
hours. The time involved and the chance for error increase 
tremendously if the number of activities involved increase 
moderately. 

The final problem worth noting is that the solution 
obtained by the method may not be acceptable. If a 
constraint on the number of resources exists, this method 
is not equipped to systematically extend the project time 
to produce further leveling in order to attain that known 


mat. 
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4.3.3 Applicability to Multi-Project Planning 


This method is not suitable for multiple project 


planning; it is not easily adaptable to providing for the 
leveling of two OF more projects which occur 
simultaneously, and attempting co do so would add 


overwhelmingly to the already complicated system. If the 
approach could be made easier to use by the common planner 
in the industry, the method would have some merit. The 
only way that is going to happen, and has happened to a 


limited degree, is with computers. 
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CHAPTER 5 
COMPUTER ASSISTED RESOURCE MANAGEMENT 


5.1 Overview 


Resource management through the use of resource 
leveling methods lends itself well to computer 
applications. The numerous calculations and complicated 


interdependencies are best handled by a machine which is 
designed specifically for that task. The computer and the 
related software can perform this function quickly, 
effectively, and economically. 

There are numerous commercial and some public domain 
products on the market which can assist the project planner 
with his scheduling. The more advanced of these provide 
the project planner the ability to level resources for a 
given project, but only the most sophisticated provide the 
feeans tO level resources for,multiple projects. 

5.2 Current Use in the Industry 

Although the micro-computer is now readily available 
to nearly any business for a reasonable cost, the 
construction industry has been slow to utilize this tool. 
At this time the number of project planners and schedulers 
using a computer based system is minimal, but increasing. 
Most are still using manually generated bar charts and many 
of those are not based upon a network such as CPM or PERT. 
When this is compared to the relative ease, speed, 


accuracy, and control provided by computer generated 
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networks and bar charts, the lack of utilization of this 
resource is astounding. 

There are a few reasons that many companies do not 
seem to use computers yet. One of the biggest reasons 
seems to be a fear of or lack of trust in the machines. 
The existing generation of company executives who did not 
grow up with computers in the home or at school feel 
intimidated by the computer. They feel that you have to 
be young to learn how to use one. AS a result they do not 
see why they cannot continue to get along with the methods 
they have used for the last thirty years. 

Another reason computers are not used to the fullest 
extent possible is the learning curve. Many owners are 
hesitant to purchase the computer hardware and software, 
not because of the direct cost, but the indirect costs. An 
IBM XT with associated hardware and one of the better 
software packages would cost less than 5000 dollars. For 
most companies this cost is trivial. But, the time and 
prospective profit lost by the company's schedulers and 
planners while trying to learn how to use the software, can 
cost a company much more. While the employees are learning 
the system they do not have as much time to devote to their 
ordinary duties; this may mean hiring additional temporary 
personnel. If the software has a particularly long 
learning curve the indirect and intangible costs may be 
Significant. Lf however, the software can be used 
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reliably after minimal training to at least match the 
existing scheduling efforts, then the cost of the 
equipment and training is quickly offset by the benefits 
gained. 

The last major concern of many company executives is 
that they may get schedulers and planners that become 
indispensable. In other words, if only one project planner 
or scheduler learns the computer system, he has exceptional 
control over the company through his unique knowledge. The 
management may be faced with a choice of either paying the 
employee an exorbitant salary or letting him go and trying 
to retrain a new person. The problem with training a new 
person is that he needs to be proficient with the system 
before any serious damage is incurred to ongoing projects 
due to lack of project control. 

5.3 How to Find the Right System 

There are several items which should be considered 
when deciding what computer system to buy. As a minimum 
the following traits should be considered for each option. 

‘4. Training necessary to utilize the system. 

2. Applicability to your company, i.e., is it a home 

builders software package and you are an earth moving 


company or is it too sophisticated or too basic for 
your applications. 


3. Quality of output, i.e., is it clear and concise. 
4. The total system cost including indirect costs. 
ae Efficiency of the system, i.e., is the system 


cost effective as a result of time saved. 
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The above considerations are not in any particular 
order of importance. That order should be defined by the 
firm considering the purchase based upon their particular 
needs and concerns. 

5.4 Benefits of Computer System Utilization 

According to Daniel D. Roman there are seven basic 
benefits to be derived from using a computer system in 
project management. These are economy, responsiveness, 
improved management visibility, accuracy, forced planning, 
the ability to manage complexity, and reduced clerical work 
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o4.1 Economy 

It is usually cheaper for the planner to use a 
computer. In the past the only feasible way to use a 
computer was to have a central system used on numerous 
large repetitive operations and run by a specialized team 
of persons. Today, however, due to the increased 
flexibility and power, and the decrease in size and cost of 
new systems the computer can be used by an individual ona 
part time basis and still be economically feasible. 

The company can obtain cost savings both directly and 
indirectly. The direct savings are a result of the 
employee being more productive. The indirect costs can be 
realized through the better management of the firm's 


resources. If the employee does a better job at 


39 





controlling costs by using the computer, the company is 
going to reap the cost benefits. 

5.4.2 Responsiveness 

The response time to changes or updates in schedules 


or resource requirements can be reduced to minutes or hours 


instead of days. When a change is imminent the effect of 
that change can be determined within minutes when a 
computer is used. Direction on what corrective action or 
preventative action must be taken can be decided 


immediately, and the resulting information can then be 
forwarded to all persons involved thereby reducing costly 
delays. 

5.4.3 Improved Management Visibility. 

Project managers at all levels throughout the firm 
also receive the benefit of computer generated management 
information. The information generated by the computer 
software is generally provided in a clear and concise way 
and is suitable for direct incorporation into reports for 
either superiors or subordinates on demonstrating current 
conditions, progress, or control on any given group of 
projects. By having this clear, concise, and consistent 
information available the project managers are better able 


to do their jobs of managing the firm's obligations. 
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9.4.4 Accuracy 


The accuracy of the computer system in most cases is 
near perfect, provided of course that the software is 
without error and the raw information being entered is 
correct. The saying that ‘a computer can do more work ina 
minute than a man can do ina lifetime, but it can also 


make more mistakes in one second than a man can in a 


lifetime’ is true, but with commercial computer software 
and hardware on the market today most of the error 
producing problems have been eliminated. Many software 


packages are ‘user friendly', meaning that the software can 
detect incorrect or inaccurate input and inform the user of 
the mistake. This has resulted in the elimination of many 
common errors. The fact remains, however, that with 
current systems, the final output is much more likely to be 
correct with a computer than a solution determined 
manually. 

5.4.5 Forced Planning 

The tendency to plan where there was no planning 
before exists when computers are used. This is caused by 
the vast amount of information which can be produced by the 
computer. When reports and schedules can be prepared 
easily and quickly, and any inconsistencies or errors are 
pointed out by the computer generated report, management is 
driven to refine their planning so as to correct any weak 


areas identified by the system. This is simply a result of 
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management's dislike of ‘loose ends' and their desire to 
correct problems which are identified. 

5.4.6 Ability to Manage Complexity 

Many projects which are undertaken are so complex that 
the only way to effectively manage the work is through 
computer systems. The computer can schedule and track a 
project of thousands of activities and resources. There is 
no way that a team of workers could effectively accomplish 
the same task. The sheer amount of time required to make 
the initial schedule manually would render that schedule 
obsolete by the time it was complete. It would be 
virtually impossible to get a schedule which was reasonably 
correct or leveled to any extent to make the project 
economically profitable. A large complex project, such as 
the building of a power plant, managed without computer 
assistance would be comparable to accomplishing the work by 
‘the seat of your pants. ' 

5.4.7 Reduced Clerical Work Load 

The time required to retype reports which incorporate 
project schedules and other planning documents is greatly 
reduced with the help of computers. Word processors help 
with routine paperwork and construction focussed software 
aids in getting reports completed accurately and on time. 
Without a computer a clerical worker such as a draftsperson 
might spend hours producing accurate charts, drawings, and 
graphs for presentations or on-the-job use. When 
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construction conditions change, they may spend much more 
time redoing the work. With the computer and the proper 
software, many of these visual aids can be produced and 
changed as the project is being updated. This results in 
fewer man hours required to complete the same work and less 
repetitive work for the staff. 
5.5 Computer Software Available 

There are numerous software packages available on the 
market and additionally there are some public domain 
programs which are available. The packages discussed here 
are Primavera, MicroTrak, Open Plan, MacProject, and 
CPMREV, a program written by myself in the BASIC computer 
language. 

S51 MicroTrak 

The software used for analysis is a demonstration 
program which will handle up to ten activities. Examples 


of the outputs from this program can be seen in Appendix D. 


5.5.1.1 Characteristics Capabilities and 
Limitations 


The system is menu driven. This means that the 
user is given prompts on each screen on what the next 
step is or what the possible options are. 

The number of activities which a registered 
version of the program can use is stated to be about 
5000. This limit is based upon the use of a hard disk 
system. If floppy disks are used this limit is 


greatly reduced. 
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This program is based upon the precedence 
scheduling method vice the arrow method. In doing so 
the option of some nonstandard dependencies may be 
used. The program supports the use of start to start, 
and finish to finish relationships in addition to the 
Standard finish to start dependency. In addition, 
each activity may depend upon up to nine other 
activities. le more than nine dependencies 
(predecessors) are identified, dummy activities may be 


used to bring the number into an acceptable range. 


A work calendar is also generated by the 
program. The typical work week is identified and any 
scheduled holidays are incorporated into this 
calendar. The calendar can be generated up through 


the year 2068, well beyond any reasonable scheduling 
date. 

The program allows for user defined activity 
codes but it will provide them automatically if 
desired. Any alphanumeric combination i.e., letters 


and numerals, of up to nine characters is accepted. 


Resources can also be managed through this 
program. Up to ten resources per network or activity 
may be tracked and the resource rates may be 


identified by either a daily rate or a total amount. 
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Some other features of this program include the 
ability to update the schedule with respect to new 
data or the progress of the project. The program 
allows for various time scale adjustments on reports 
which can be used to simplify reports or to make them 
more detailed depending upon the use or the person 
targeted to receive that report. The program can also 
sort the output data by a group code. This allows for 
a report on only one subcontractor's work, or the work 
of a given trade, etc. This can be used in any way 
the user desires. 

This program will not level the resources. 
However, the manufacturer indicates that they will be 
coming out with é supplemental program called 
LevelTrak which will use the data files generated by 
MicroTrak RS level the project resources. There is 
currently no additional data available on LevelTrak. 

5.5.1.2 Multi-Project Resource Planning 

To date, the MicroTrak program can not schedule a 
project based upon resource constraints for either one 
or several projects. The output generated is best 


suited to management of the project as scheduled by 


early start. The management can base their resource 
requirements upon the resource demand report 
generated. By having this they should be able to 
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resolve any conflicts or difficulties before the fact 
since all resource requirements are identified. 

At this time the capabilities of the proposed 
program LevelTrak are unknown. When the program 
becomes available an analysis of its capabilities, 
limitations, and suitability for any given situation 
would have to be analyzed. 

5.5.2 Primavera 

Throughout the industry Primavera is considered the 
Rolls Royce of scheduling programs. Although it is very 
versatile and has astounding capabilities far exceeding 
needs in most areas, its biggest weaknesses are its 
inherent complexity and the lack of simple graphic output. 


Examples of the output are shown in Appendix E. 


5.5.2.1 Characteristics, Capabilities, and 


Limitations 

The Primavera system is a menu driven system. 
There is a help screen which assists the user in 
determining the proper commands, but it is overall 
much more difficult to use than MicroTrak due to the 
sheer volume of information required to drive the 
system. The advantage of the menu system is that a 
user inexperienced with the system can enter or access 
information a little quicker. 

The number of activities which can be considered 
for scheduling for any given project is 9000. This is 
far more than even sophisticated construction firms 
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are likely to use. In addition, each of these 
activities may have up to ten dependencies. 

Each activity may have six different resources, 
and the project as a whole may have up to 96 different 
resources tracked and leveled. The leveling is 
performed in a combination of the two manual methods 
described earlier. The program will accept two input 
parameters for leveling. The first is a resource 
maximum upper limit and the second is’ the normal 
i mt. The program will extend the duration to meet 
the maximum upper limit but will attempt to further 


level the project to the normal limit without further 


extension. All other aspects of the program i.e., 
updating, Sapeaiiie changing, sorting, and time scale 
adjustments, are comparable with those described for 
MicroTrak. 


An overall impression of this program is that the 
person using it will require extensive training, both 
formal and informal, to use it effectively. To learn 
how to produce a few standard reports and documents 
may take only a few weeks of effort, but to learn to 
fully and effectively utilize this piece of software 
will take months of constant practice, and 'playing' 
with the system. A person using this program once a 


week will probably not be able to remain proficient at 
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it even if he had all the training and knowledge at 
one time. 

Seoul ti-rrojyect Resource Planning 

Although Primavera is one of the state of the art 
programs on the market, it does not provide for 
resource planning or leveling of multiple projects. 
The version reviewed is P3. Any newer versions are 
likely to incorporate this feature so they may remain 
competitive with products such as Open Plan which is 
to be discussed next. Currently the only multiple 


project option available with version P3 is for the 


scheduler to relate the leveling of concurrent 
projects. This can be done by starting with the 
Peebles er in chronological sequence. Level the 
first project. Then place a resource limit on the 
second project equal to the remaining resources 


available during that overlap period. By doing this 
the total maximum limit of resources during any time 
period can be controlled, but the results are not 
optimum since leveling between projects does not take 
place. This solution, however, is far better than no 
solution at all. In general it will prove marginally 
satisfactory since the leveling of the projects 
themselves will tend to level the overall company 
resource demands, and achieving the most imperative 
aspect of leveling (remaining under the maximum limit 
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of resources ) is possible although tedious and 

imperfect. 

Sr. 2) open Elan 

Open Plan iS a program which uses the database 
language dBase III to maintain and control access to all 
the data files. As a result, the purchaser of Open Plan 
must also purchase a copy of dBase III if a copy is not 
already available. Examples of the various report formats 


available are shown in Appendix F. 


5.5.3.1 Characteristics, Capabilities, and 
Limitations 


The Open Plan manual provides minimal data on the 
program's limitations compared to what was provided in 
the other software packages. However, there are some 
differences which are apparent. 

This program has the added capability to use a 
start to finish dependency in addition to the start to 
start and finish to finish dependencies used in 
Primavera and MicroTrak. It is a nice addition to the 
system but this relationship is used very little in 
the construction industry. 

Open Plan is also menu driven eee eh means that it 
is almost as easy to use as Primavera. The training 
time for this program as compared to Primavera is 
about the same. Its capabilities and complexity are 
Similar so it is not reasonable to assume that an 
employee could become proficient with the program 


within a week. 





Resource management is also available in this 
package. The program can level a resource based upon 
a fixed time or it can schedule based upon a resource 
PN ate. The resource limit method allows the project 
duration to be extended, whereas the leveling method 
optimizes the resources within the project duration. 


The program also allows the project to be scheduled 


based upon the resource limitation and then, if 
desired, further optimized by using the leveling 
option. This option allows the scheduler significant 


freedom in determining just how he wishes to schedule 
his resources. It may be leveled, ‘resource limit' 
scheduled, or a combination of both. 

5454322 Wettt fea tect Resource Planning 

The program allows for the scheduling of multiple 
projects but the interaction is really rather 
limited. The method whereby the additional projects 
are scheduled is very much as described in the multi- 
project section of Primavera only in this case it is 
done with more ease, marginally better results, and 
with less chance of error. 

The procedure the program uses is as follows: 

1 The first project (or the project considered 


to have the highest priority) is scheduled based 
upon the resource constraints desired, if any. 
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2" The program then creates a temporary file 
which contains the resources left in the company 
pool, i.e. the difference between resources 
consumed by the project considered and the total 
amount of resources available. 


3. The next project, with respect to either 
priority or chronological order, is identified to 
the program as also needing scheduling based upon 
resource constraints. 


4. The computer will then schedule based upon 
the resource limit method and the resources 
available on a daily basis as found in step 2. 
Again the remaining daily resources are 
determined and placed in the temporary file. 


Be: The process can then be continued by 
repeating steps 3 and 4 until all projects are 
scheduled. 


The process as described above will not give the 
best possible answer. The reason is that oncea 
project is scheduled in the multi-project process the 
dates are fixed and the scheduling of further projects 
will not optimize those already scheduled. Using this 
method the scheduling may not give an acceptable 
answer when an acceptable answer is possible. Assume 
for instance that two projects are being considered. 
The first has one month until completion and it needs 
to use ten scrapers for two weeks anytime during that 
last month. Also assume that a second project needs 
ten scrapers for its first two weeks of work, and it 
is scheduled to start that same month. If the company 
has only ten scrapers available the program would 


delay the start of project two by 
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two weeks. This is not the best solution since the 
first project may have the scrapers scheduled for the 
last two weeks of the month and the second project 
could use the scrapers the first two weeks of the 
month. This schedule allows the contractor to start 
the second project as soon as possible and does not 
delay project one which is in progress. 

The developers of Open Plan describe a way for 
users to avoid this problem, but it takes extensive 
knowledge -of dBase III to doit. The process is to 
combine all of the dBase project files into one 
massive integrated project file. This integrated 


project is then leveled as if it were the only project 


considered. Following leveling, the leveled 
integrated project file must be separated into 
individual projects again. This merging and 


separating is the problem which must be solved by the 
computer programer. For a person experienced in dBase 
III I am sure this would not be a difficult hurdle. 
It might even be possible to write a program which 
would perform the process whenever called upon. 

Since the authors of the program recognize the 
faults in the current multi-project planning method, 
and they even describe the solution in their manual, 
it is likely that there will be an automatic function 
or option which will perform the combining and 
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separating operations mentioned above in a future 

edition of Open Plan. 

5.5.4 MACPROJECT 

This program is written for the MacIntosh computer. 
It is very easy to use as is typical with the user friendly 
menu driven systems which are predominant in MacIntosh 
programs. Some typical examples of the program's output 


are shown in Appendix G. 


5.5.4.1 Characteristics, Capabilities, and 


Limitations 

MacProject is very easy to use as compared with 
most other commercial programs on the market. It is 
able to evaluate up to 2000 activities with six 
resources per activity and fifty resources per 
project. ie are two major drawbacks however: the 
dependencies are limited to 'finish-to-start' and the 
resources are identified by name only with no 
reference to the number required. 

5.5.4.2 Problems 

The problem with the dependencies can be 
partially solved by editing the schedule after it has 
been. calculated. A delay between the finish of one 
activity and the start of the next may be scheduled by 
forcing the start date of the following activity to a 
given date. For example if ‘remove forms' was to 
follow ‘place concrete’ by two days, the schedule 
would be originally determined based upon a normal 
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dependency. The output would be analyzed to determine 
if the activity of removing forms followed placing the 
concrete by less than two days. If so, it would be 
forced into starting a couple of days later by 
specifying that it depends on a date, based on the 
original schedule determined, rather than another 
eetiVvisky. Another method would be to place a two day 
dummy activity called ‘wait' between ‘remove forms' 
and 'place concrete'. This would have the same effect 
without having to run the program twice. 

The other drawback is the method used to account 
for resources. As indicated above, resources can be 
considered but there is no mechanism for specifying 
the number of units required. This can best be 
explained by example. In the programs discussed above 
the user could define a category called ‘'laborers'. 
He may use this category for most of his activities, 
but the number of laborers needed for each activity is 
likely to change. Suppose he requires four laborers 


for the first activity and ten laborers for the second 


activity. He tells the computer he needs laborers and 
indicates i requirement for four and ten 
respectively. In MacProject the solution is not so 
simple. The resources will be listed by category 
only. If you have four laborers you may write "4 
Laborers" or you may enter laborers four times using 
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four of the six resource spaces available. If this is 
to stand alone the solution, though cumbersome, would 
be satisfactory, but as soon as we enter the second 
activity which needs ten laborers we have a problem. 
ere laborer ten times is out of the question since 
the program will only accept six. In addition, 
entering "10 Laborers" is unsatisfactory since the 
program does not recognize its relationship with the 
"4 Laborers" used for activity one. The result can be 
quite confusing when trying to determine actual 
resource requirements. 

In addition to the difficulty in accounting for 
resources, the output is confusing, and not very 
practical. As can be seen in Appendix G, the output 
is organized by resource category. In the sample 
output, sitework is listed twice under the category of 
'‘laborer' and clean up is listed three times. This 
indicates that you need two laborers for sitework and 
three for clean up. There is not much of a problem 
here but it would be very confusing if more than six 
workers were needed for any given activity or if there 
were many activities which needed the same resource. 
The output would become quite cumbersome and difficult 
to handle very quickly. As it is, it is only useful 


for very simple projects and resource requirements. 
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5.5.4.3 Multi-Project Resource Planning 


The program does not automatically resource level 
or optimize at all although it may help the user in 
leveling and optimizing by the traditional method 
described earlier. But even this is tedious to do 
since the resource output is so poorly formatted. 
Multiple project planning is not possible since, other 
than doing it manually, any attempt at resource 
leveling for any but the simplest of schedules is 
futile using this program. 

Beo.5 CEMREV 

This program has been rewritten numerous times over 
the last nine months. It started as a computational CPM 
program in the BASIC language, written by Robert D. Rotz, 
and has been rewritten and revised dozens of times since 
September 1986. Since this program was not written by a 
professional computer programer it does not have all of the 
exceptional capabilities of the higher priced packages but 
it shows that development of a software package, while not 


easy, is not impossible either. 


5.5.5.1 Characteristics, Capabilities, and 
Limitations 


The program will schedule up to 100 activities 
providing early start, late start, early finish, late 
finish, total float, and identification of the 
critical path. The program also provides a bar chart 


of the schedule based upon the early start dates. 
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The output provided is in the form of five 
reports: 


a A listing of the project activities, the 
daily costs, resource demands, and dependencies. 


2. A listing with the start and finish times 
for each activity plus the total costs for both 
the activities and the project. 


on A bar chart schedule based upon early start 
dates. 
4. A histogram of the project resource demands 


based upon the early start schedule. 


a. A histogram of resource demands of multiple 
projects based upon their respective early start 
dates. 


All tables and graphs which are produced on the screen 
can be printed on an eighty column IBM compatible 
printer. 

The program will track up to five different 
resources for each activity and project. This means 
that up to five histograms of resource requirements 
can be produced for each project. This program, 
however, only provides an aggregation of the resources 
needed based upon early start dates and does not do 
any resource leveling or rescheduling based upon 
resource limitations. 

This program is very easy to use compared to 
those discussed earlier. Nearly anyone could learn to 
use the program in under an hour, and feel comfortable 


with all the features within a day. 
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Examples of the output for both single and 
multiple projects are shown in Appendix H, followed by 
a listing of the program. 

5.5.5.2 Multi-Project Resource Planning 

The program has the capability to provide a 
listing and histogram of the aggregate resource sum 
from any number of projects. 

How the output is obtained can be explained best 
by describing the steps involved. The program first 
asks the user to identify from the available list 
which project is to be considered. Once this is done 
the program displays on the screen the resources 
identified for that project. The user then selects 
the appropriate resource from that list. The computer 
records the dates and resource demands, and asks the 
user if his is finished or if he wants to add another 
project resource from the list. He may add another 
resource from the same project or he may go toa 
different project and adda resource from there using 
the same steps used before. 

This option to add resources not only between 
projects but within projects can be useful to the 
planner involved. The total number of persons on the 
job may be of concern to the superintendent of the 
project. He may only have an output which shows 
individually how many carpenters, steelworkers, 
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masons, and painters are on the job, but not the sum 
total. The same analysis could be used for different 
types of equipment used on the same project. To take 
the setup one step farther, the program also has the 
capability to give an indication of how many tradesmen 
are employed by the company on any given day even if 
they are not broken out under a total manpower 
resource heading. The sums from each individual 
project can be found and added to the values of 


subsequent projects in the same way. 
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CuAr LER 6 
CONCLUSION 


Although there are many different approaches’ to 
resource planning for both single and multiple projects, 
construction firms need to recognize the importance of 
resource management and find an acceptable means to control 
their costs in this area. The scheduling and resource 
Management methods discussed in this paper need to be an 
integral part of that control and should be incorporated 
into the companies comprehensive resource control plan. 
Regardless of the method used, the computer and its 
associated software is ideally suited for the task of 
resource management thorough scheduling. The time required 
by schedulers and planners to update and modify schedules 


/$- greatly reduced through their use. 


Of the programs evaluated here, the best overall 
manager of resources was Open Plan. Although the 


Gifficulty level is relatively high for this program, any 
construction companies which have at least one or two full 
time schedulers and planners would not go wrong to invest 
in a similar system. Small companies should look at 
available software in addition to what has been described 
here to find a program which is easier to use, and has at 
least some of the resource aggregation functions, such as 
MicrotTrak. Optimally, it should have resource leveling 


capabilities as well. 
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The day that multiple project resource leveling 
becomes more the norm rather than the exception is coming 
but it is not here yet. Right now there are very few 
programs which can effectively handle multiple projects. 
Open Plan is one of the first to open that door and even 
they have not committed themselves to its full development. 


Resource planning is just now becoming a common focus 


of computer software. In the next few years the trend is 
likely to continue as demand for such software rises. The 
result will be better resource management tools via 


computers and, ultimately, more efficient and less complex 


multi-project resource planning. 
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APPENDIX A 


RESOURCE RATE DISTRIBUTION 


taken from 
Robert B. Harris, Precedence and Arrow Networking 
Techniques for Construction, John Wiley and Sons, Inc., 
New York, 1978, p.156. 
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(e) Variable resource rates 


Fiy. A.l Typical resource rate variation. 
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APPEND I2 B 


TRADITIONAT, 


LEVELING APPROACH EXAMPLE 


taken from 
Robert B. Harris, Precedence and Arrow Networking 
Techniques for Construction, John Wiley and Sons, Inc., 
New York, 1978, chap. 11. 
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Fiy. B.1 Precedence diayram. 
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Fiy. B.2 Schedule information chart. 
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APPENDIX Cc 


MILNIMOUM MOMENT 


LEVELING APPROACH EXAMPLE 


taken from 
Robert B. Harris, Precedence and Arrow Networking 
Techniques for Construction, John Wiley and Sons, Inc., 
New York, 1978, chap. i11. 
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Sie UD 


MINIMUM MOMENT PROCEDURES 


Prepare an arrow or precedence network of the 
project and determine the sequence step number for 
each activity. 


Prepare a link matrix and compute the ESD and EFD 
for each activity. Compute the lags for each 
link, Determine the total float for each activity 
and identify the critical path. 


Select a resource to be leveled. 


Determine the amount of the selected resource 
which is required per day for each network 
activity. Call this required resource rate, "r." 
Prepare a bar chart showing the early start time 
for each activity and its duration. Plot critical 
activities first, followed by noncritical 
activities. 


For each day of the project, total the resource 
rates at the foot of the bar chart to obtain the 
daily resource sums. 


Procedure 


The procedure begins with the activities on the last 
sequence step. 


le 


Examine the activities on the sequence step. 


(a) Every activity an the sequence step having 
zero free float is passed over. 


(b) Every activity on the sequence step having a 
zero resource rate is shifted to the limit 
of the activity free float to allow 
preceding activities to be shifted. 


(ues) For each activity on the sequence step 
having a positive resource rate, determine 
the extent of its free float and compute 
improvement factors for all possible days 
that the activity can be shifted until the 
free float limit is reached. 


Select the activity having the largest improvement 
factor determined in algorithm step l(c). 
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(b) 


If the largest improvement factor is 
negative, no shifting takes place. Go to 
the next sequence step and examine the 
activities as in algorithm step 1. 


If there is a tie in the value of the 
largest improvement factor for several 
activities: 


as select the activity with the greatest 
"r" value. 
ii. If still tied, select the activity 


with the greatest free float for 
preceding activities. 


iii. If still tied, select the activity 
With the latest start date. 


Aza If still tied, select the activity 
with the first activity in the queue 


Shift the selected activity subject to the 
following: 


(a) 


(b) 


If the largest improvement factor is zero or 
positive, shift the selected activity by 
subtracting the activity resource rate from 
each of the daily resource sums at the 
position being vacated and adding this same 
rate to each of the daily resource sums at 
the position being occupied. 


If there is a tie in the value of the 
improvement factor at several of the 
possible activity positions, shift the 
activity the greatest number of time units. 


If shifting has occurred in algorithm step 3, 
update the lags, ESD and EFD, in the link matrix. 


Reexamine the activities on the sequence step and 
repeat algorithm steps 1 through 4 until all 
shifting is complete on this step. 


Examine the next earlier sequence step an repeat 
algorithm steps 1 through 5. Continue in this 
manner until all activities have been considered 
and all possible shifting has taken place on every 
sequence step. 
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Repeat algorithm steps 1 through 6 until no 
further shifting takes palace. This is the end of 
the forward cycle. 


Beginning with the first sequence step, using back 
float instead of free float, and progressing to 
the next latest sequence step instead of to the 
next earliest sequence step, repeat algorithm 
steps 1 through 7 until all activities have been 
considered and shifted, where possible, to an 
earlier time position. This is the end of the 
backward cycle and completes the leveling. 
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Sequence Step Numbers Computed for an Arrow Network 
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Fiy. C.1 Sequence step chart. 
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APPENDIX D 


SAMPLE OUTPUT FROM 


MT CROTRAK 
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HEDULE: DEMO OF MICROTRAK BASE DATE = 100CT83 


N DATE = O2MAY83 Rev 1 MICROTRAK DATA DATE oe ss 
TIVITY-WITHIN-RESOURCE CU Orr DATE = ....54% 

ee me RE OOURCE. =——=- == DOLLARS. — Se 
MBER DESCRIPTION DURATION DAILY TOTAL DAY TOTAL 


—_— = a= ae 68 ase OF OF Oe Ot ee ee ee ee ee ee ee ee ee eee ee oe oe ieee es eee eee i eee es ss sss sees ee lee eee lee ee eee eee ee 


SOURCE 1 = CARPENTERS 


build forms 7 4 28 0 0 
set forms 2 1 2 0 0 
TOTAL 30° | 0 


SOURCE 2 = STEEL WORKERS 


| pre-bend re-steel 4 4 16 0 0) 
} feoere-stee ] 3 2 12 0 0 
TOTAL : 28 0 

SOURCE 3 = LABORERS 
build forms 7 8 56 0 0 
pre-bend re-steel 4 4 16 0 0 
excavate 8 8 64 0 0 
set forms 2 4 8 0 0 
set re-steel 3 8 24 0 0 
place concrete I) 6 6 0 0 
TOTAL 174 0 
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CHEDULE: DEMO OF MICROTRAK 


UN DATE 


O2MAY83 Rev 1 


ESOURCE-WITHIN-ACTIVITY 


ACTIVITY 





DESCRIPTION 

build forms 
CARPENTERS 
LABORERS 
TOTAL 

pre-bend re-steel 
STEEL WORKERS 
LABORERS 
TOTAL 


excavate 
LABORERS 


TOTAL 

set forms 
CARPENTERS 
LABORERS 
TOTAL 

set re-steel 
STEEL WORKERS 
LABORERS 
TOTAL 


place concrete 
LABORERS 


TOTAL 


MICROTRAK 


RESOURCE 


BASE DATE 
DATA DATE 
CUT OFF DATE = 


DURATION DAILY TOTAL 


7 “ 
a 8 
ok 4 
ok A 
8 8 
2 1 
2 a 
3 z 
3 8 
1 6 


28 
56 


84 


16 


Hi 


32 


64 


64 


10 


12 
24 


36 


100CT83 


¢* ¢ es e®* &® 8 © 


=~ DOLLARS. => 
DAY TOTAL 
0 0 

0 0 

C 

0 C 

0 C 

C 

0 C 

C 

0 C 

0 G 

( 

0 ( 

0 ( 

( 
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HEDULE: DEMO OF MICROTRAK BASE DATE = 100CT8< 


DATE = O2MAY83 Rev 1 MICROTRAK DATA DATE = eee eee 

SDULE REPORT by EARLY START WUTorer DATE = ....66. 

ACTIVITY DAYS START FINISH FREE TOTAL 

3ER DESCRIPTION LEFT EARLY LATE EARLY LATE FLOAT FLOAT 
move in 100CT83 100CT83 110CT83 110CT83 


2 0 0 
excavate 8 120CT83 120CT83 210CT83 210CT83 0 0 
pre-bend re-steel 4 120CT83 180CT83 170CT83 210CT83 4 4 
build forms 7 120CT83 140CT83 200CT83 240CT83 i a 
set re-steel 3 240CT83 240CT83 260CT83 260CT83 0 0 
set forms Aeeaecrss Zogectses 250CTS83 260CTS83 1 1 
place concrete Meer OChoos, “2706 hrS3 270CTS3  270CTS83 0 0 
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IEDULE: DEMO OF MICROTRAK BASE DATE 


= 100CT83 
DATE = O2MAY83 Rev 1 MICROTRAK DATA DATE = a 
E SCALE REPORT by EARLY START CUMeOURDATE = .,.4..% 
Activity 1983 OCT NOV DEC 
ber Description 10 Jere 24 31 07 14 21 28 05 
| move in => 
excavate | >======> 
pre-bend re-steel | >-->...> 
build forms | >----- >>. 
set re-steel | >=> 
set forms | ->> 
| 


place concrete 
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SHEDULE: DEMO OF MICROTRAK BASE DATE = 100CT83 


JN DATE = O2MAY83 Rev 1 MICROTRAK DATA DATE Se ea eee 
[ME SCALE REPORT by EARLY START CUTPORFMMeRE = ......-. 
Petivity 1983 OCT 
imber Description 10 11 12 13 14 a fy! 18 19 20 
move in =! > 
) excavate PESSBZBeSeeSeSeS2 22 S22 5222258 S22 S22 S252 S852 62555252 
| pre-bend re-steel ee tM a's 6's 6 


| 
| 
build forms | a 
! set re-steel | 
set forms | 
place concrete | 


AVERAGE DAILY RESOURCE 


CARPENTERS 0 0 4 4 4 4 4 4 4 
STEEL WORKERS 0 0 4 4 4 4 0 0 0 
| LABORERS 0 0 20 0 20 °# 20 16 16 16 
TOTAL RESOURCE 0 0 28 28 28 28 20 #20. 20 
RESOURCE COST (K$) 0 0 0 0 0 0 0 0 0 
: DIRECT COST (K$) 0 0 0 0 0 0 0 0 0 


TOTAL COST (K$) 0 0 0 0 0 0 0 0 0 








HEDULE: DEMO OF MICROTRAK BASE DATE = 100CT83 


N DATE = O2@MAY83 Rev 1 MICROTRAK DATA DATE a rr 
ME SCALE REPORT by EARLY START OUNEOPE DATE = ....... 
Activity 1983 (OG NOV 
nber Description 21 24 25 26 ei 28 31 01 02 
move in 
excavate =====> 
pre-bend re-steel  K&— |) ..... > 
build forms Sea 
set re-steel , SS 
set forms : >--------- ae > 
place concrete 3 , : : >====> 


AVERAGE DAILY RESOURCE 


CARPENTERS 0 1 1 0 0 0 0 0 0 
STEEL WORKERS 0 4 & 4. 0 0 0 0 0 
LABORERS 8 12 12 8 6 0 O 0 0 
TOTAL RESOURCE 8 La 17 12 6 0 0 0 0 
RESOURCE COST (K$) 0 O 0 0 0 0 0 0 0 
OPRECT COST (K$) 0 0 0 0 0 0 0 0 0 
TOTAL COST (K$) 0 0 0 0 0 0 0 0 0 
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APPENDIs E: 


SAMPLE OUTPUT EFROM 


78 





PRIMAVERA PROJECT PLANNER 


Summary of Available Reports Page 1 
eeeries Ref .No. epee Report Title 32 = _o..______ 
A SR-01 Demo Sched Rep - Sorted by ES, TF 
SR-02 Demo Sched Rep - Sorted by TF, ES 
SR-04 Demo Sched Rep (with log) - Sorted by ES, TF 
SR-05 Demo Sched Rep - Skipping by first code 
| SR-06 Demo Sched Rep (analysis with successors) 
SR-07 Demo Sched Rep (det prd & suc) - by Act # 
| BC-02 Demo Bar Chart (Daily, one bar) by ES, TF 
| BC-03 Demo Bar Chart (Weekly, 2 bars) by ES,TF 
| BC-04 Demo Bar Chart (Weekly, 1 bar) skip by 1st code 
NL-O1 Demo Network Logic Rep for Critical Path 
| RC-0O1 Demo Resource Control] Report by activity 
| RT-01 Demo Resource USage (Tabular) - selected res. 
RU-0O1 Demo Profile of Resource Usage - weekly sel. res 
RR-0O1 Demo Cumulative Profile of Resource - weekly 
CeO - Demo Summary Cost Report - selected resources 
GeO Demo Cost Control Report - by activity 
CT-01 Demo Cash Flow Report (Tabular) - Monthly 
CEO Demo Earned Value Report 
CU-0O1 Demo Cost Profile - weekly 
CR-0O1 Demo Cumulative Cost Profile - weekly 
RP-0O1 Sample Productivity Report 
CP-01 Sample Price-Rates Report 
SR-03 Demo Schedule Report with activity budgets 
SR-08 Demo Summary Schedule Report with Budgets 
RU-O2 PROFILE OF PLUMBERS,CARPENTERS, ELECTRICIANS 


oe 
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pa Pw OES SSS SS 2S SS Se ees So = owes = Sew OS SSS SSF SST SS 8 SP S11 SPP FS BOO sr @F FFF FT 8 SF STF SF CEP SOS SSS S42 SST 2 SS Sas SS SS SSP ws Ses SPs SS Ser So FPP SFG se SSSR SFT ere SS 


MXXXXXXXKXXAXXKXXXKXX 






xX X 
xX X 
X 
X NO PREDECESSORS X--------- > 
xX X | 
x | 
X X | 
KXXXXXXXXXXXXXXXXXXXKX | 
| 
| 
V 
XXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXKX XXXXXXXXXXXXXXXXXXXXXK XXXXXXXXXXXXXXXXXXXXXX 
X ACT NO. 1X  - XACT NO. ak X ACT NO. 5 Xx X ACT NO. 7 X 
X X X X X X X X 
[OTAL X LAYOUT X X SOIL STABILIZATI X X PLUMBING-STREET xX X FOUNDATION EXCAV xX 
“LOAT =X X------- >X ON X------- >X CONNECTION AND U X------- >X ATION X-------> 
-20 xX X X X X NDERSLAB X X X | 
X X X X X X X X | 
| XOD 5 RD 0 PCTIOOX XOD 15 RD 0 PCTIO0X XOD 8 RD 3 PCT 62x XOD 5 RD 2 PCT 60X | 
XXXXXXXXXXXXXXXXXAXKXX XXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXKK XXXXXXXXXXXXXKKKXXXXXK | 
ES 14DEC82A EF 22DEC82A ES 28DEC82A EF 20JAN83A ES 24JANS3A EF 3FEBS3 ES A EF 7FEB83 | 
| 
| | 
Vy = 
XXXXXXXXXKKKKKKXXXXXXX XXXXXXXXXXXXXXXXXXXXKX XXXXXXKXXXXXXXXXXXXKKK XXXXXXXXXXXXXXXXXKKKKX 
X ACT NO. 9 Xx X ACT NO. 13. X X ACT NO. oex X ACT NO. 24 X 
X X X X X X X X 
‘OTAL =X GRANULAR FILL = X X TERMITE PROTECTI xX X CONCRETE SLAB ON X X CURING TIME X 
‘LOAT =X X------- >X ON X------->X GRADE X------->X X-~----- > 
—-20=~X X X X X X X X | 
: X X X X X X X X | 
XOD 7RD 7 PCT OX XOD 13 RD 13 PCT OX XOD 5 RD 5 PCT OX XOD 13 RD 13 PCT OX | 
XXXXXXXXXXXXXXXKXXXXXX XXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXKKKKKXXX XXXXXXXXXXXXXXXKKXXXXX | 
ES 8FEB83 EF 16FEB83 ES 17FEB83 EF 8MAR83 ES 9MAR83 EF 15MAR83 ES 16MAR83 EF 1APR83 | 
| 
| | 
| y 
XXXXXXXXXXXXKXXKKKKXXX XXXXXXXXXXXXXXXKXXXXXX XXXXXXXXXXXKKKXXXXXXXX XXXXXXXXXXXXXXKXKKXXXX 
X ACT NO. 26 X X ACT NO. 27 X X ACT NO. 30 X X ACT NO. ah x 
X X X X X X X X 
‘OTAL «=X SET PRECAST CONC XS 5 X GROUT PRECAST PA X X INSTALL METAL ST X X PLATES, LINTELS, X 
LOAT X_ RETE PANELS X------- >X NELS X------->X AIRS X------- >X AND ROOF TRUSSE X~-------> 
-20 =X X X X X X X § X 
| X X X X X X X X | 
XOD 10 RD 10 PCT OX XOD 6 RD 6 PCT OX XOD 50 RD 50 PCT OX XOD 23 RD 23 PCT OX | 
XXXXXXXXXXXXXXXXXXKKKK XXXXXXXXXXXXXKKKKXXXXX XXXXXXXXXXXXXXXXXKKKKX XXXXXXXXXXXXKKKKKXXXXX | 
ES 4APR83 EF 1SAPR83 ES 11APR83 EF 18APR83 ES 19APR83 EF 28JUN83 ES 29JUN83 EF 1AUG83 | 
| 


SSeS SSS SOS SS SF SF SF SF SF SF SF B22 2 SF SS @ es SS SS SS Swe ww ww ww ww ww ww we ww we ew we ee we ee ee ee ee ee ee ee ee 2 2 SSS SS SS SF SPS SS HS V2 SF SSF SF SF SF 2 @ OFS SVS OO SS SS GS 
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2S SP Pw See Ss SO SPE SSS SS SSeS So SPSS OO SWS Ss SS TSB. 4S SS SS Slo FSS —_ oS DP SP aya GP GP GE Ge Gy Ge ae cw GP SEP ep ee ep dee Way Ge to GS) GY) GE a Ee ee ee a SP eee eee ce ep hee se a ea ee 


XXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXX 
X ACT NO. 34 X X ACT NO. 41 X 
X X X X 
X REOWOOD FASCIA,S X X ORY SHEETING X 
X OFFIT AND PLYWOO X >X ooo 
X 0 DECKING X X X 
X X X X 
XOD 20 RD 20 PCT OX XOD 5 RD 5 PCT OX 


XXXXXXXXXXXXXXXXXXXXXX 
ES 2AUG83 EF 29AUG83 
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XXXXXXXXXXXXXXXXAXXXXX 
ES 30AUG83 EF 5SEP83 


XXXXXXXXXXXXXXXXXXXXXX 


Multi Family Housing Project 
START DATE 13DEC82 FIN DATE 6SEP84 
DATA DATE 1FEB83 PAGE NO. 2 


XXXXXXXXXXXXXXXXXXXXXX 


X ACT NO. 43 X X ACT NO. 45 X 
X X X X 
X STOCK BULK MATER X X SET INFILL PANEL X 
>X IAL INSIDE BUILD X------->X FRAMING ===) 
X ING X X X | 
X X X X | 
XOD 4 RD 1 PCT 62x XOD 3RD 3 PCT OX | 
XXXXXXXXXXXXXXXXXKXKKK XXXXXXXXXXXXXXXKXXXKKX | 
ES A EF §SEP83 ES 7SEP83 EF 9SEP83 | 
| 


wearer ee SS @ Se SF 2 SB SSS St FF SF SF SSF SF SE S28 SEF SESS SE SF SPSS SS SS SE BPS es8 SSS SSF SS SF SF SETS SEO St 8 S88 SS SOC SS SSF SF SSF SSS € SSS SS SSS OS SF FSS CPSs SSS Sos Seo SP £ FT FS 


V 
XXXXXXXXXXXXXXXXXXXKXX XXXXXXXXXXXXXXXXXXXXXX 
X ACT NO. 47 X X ACT NO. 43 X 
X X X X 
X WINDOWS X X WOOD SIDING X 
X Xo------ >X Kane 
X X X X 
X X X X 
XOD ORD 0 PCT OX X0OD ORD 0 PCT OX 


XXXXXXXXXXXXXXXXXXXXXA 
ES 13SEP83 EF 19SEP83 


XXXXXXXXXXXXAAAAXAAAAK 
ES 20SEP83 EF 29SEP83 


XXXXXXXXXXXXXXXXAXXXAX 


X ACT NO. 66 X 
X X 
X WALL INSULATION xX 
>X X 
X X 
X X 
X00 ORD 0 PCT OX 


XXXXXXXXXXXXXXXXXXXXXX 
ES 30SEP83* EF 60CT83 


x 


Seer ae @ SF SF SS SF SF SF SF SF SF SF SF SF SF SF SF SF SF SF SF SF FF SF SF FT SF SF FT SF SF FFT FF OF SVs oa Frw FO FTo FF 2@g@oeFoe 2 OFF SOF SF SF SF SF FS @ SF S @ PS 


| 

V 
| XXXXXXXXXXXXXXXXXXXXXX 
| X ACT NO. 68 xX 
| X X 
| S 3 X EXTERIOR RAILING X 
foa------- Xx § X 
T0 X X 
WE 172 X X 
X00 6 RD 6 PCT OX 


XXXXXXXXXXXXXXXXXXXXXX 
ES S0CT83 EF 120CT83 


XXXXXXXXXXXXXXXXXXXXXX 


X ACT NO. 10 X 
X X 
X SHEETROCK WALLS xX 
>X X 
X X 
X X 


XOD 25 RD 25 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 70CT83 EF 10NOV83 


Ga 
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Demo Network Logic Rep for Critical Path DATA DATE 1FEB83 PAGE NO. 3 
| XXXXXXXXXXXXXXXXXXXXXX 
| X ACT NO. 67 X 
| X X 
| 


S 2 X CONCRETE STAIRS xX 


| ---------->X x 
TO X X 
| TF 178 X X 


XOD 5 RD 5 PCT OX 
XXXXXXXXAXXAXAXAAXAAAA 
ES 40CT83 EF 100CT83 
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DRT DATE 23MAY87 RUN NO. 1 
1 Demo Network Logic Rep for Critical Path 
XXXXXXXXXXXXXXXXXXXX 
ACT NO. 24 X 


X SET PRECAST CONC X 
X RETERETERETERETE X 
X X 
X X 
XOD 10 RD 10 PCT OX 
XXXXXXXXXXXAAXAAXAAAAK 
ES 4APR83 EF 15APR83 


4 


X 
X 
CURING TIME X 
asso > 
X FROM | 
Rie = ee0)| 
JO 13 RD 13 PCT Ox | 
XXXXXXXXXXXAXXAXXAAX | 
) 16MAR83 EF 1APR83 | 
| 
V 
XXXXXXXXAXXXAXXAXXAXXX 
X ACT NO. 26 X 
X X 


ee > 


oe ee ee ee ee ee ee ee eC ee ee ee 


XXXXXXAXXXAXXXXAXXXAXA 


X ACT NO. 21 X 
X X 
X GROUT PRECAST PA X 
X NELS X 
X X 
X X 
XOD 6 RD 6 PCT OX 


XXXXXXXXXXXAXAAAAAAAAK 
ES 11APR83 EF 18APR83 


XXXXXXXXXXXAXAAAAAAAAA 


X ACT NO. 30 X 
X X 
X INSTALL METAL ST X 
X AIRS X 
X X 
X X 


XOD 50 RD 50 PCT OX 
XXXXXXXXAAXXXAKAKARAAA 
ES 19APR83 EF 28JUN83 
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START DATE 13DEC82 FIN DATE 6SEP84 


DATA DATE 


1FE883 


PAGE NO. 
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XXXXXXXXXXXXXAXXXAXXXX 


| 
| X ACT NO. 50 Xx 
| X X 
| X FRAME INTERIOR WH X 
J--n=-----~>X ALLS X 
TOmnex , 
TF 56 X X 
XOD 20 RD 20 PCT OX 
XXXXXXKXXXKKXXAXXXXKXX 


ES 19APR83 EF 16MAY83 
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START DATE 130EC82 FIN DATE 6SEP84 


DATA DATE 


IFEB83 


PAGE NO. 
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SS Se SF @ SS © SS we we ee ee ee ee ee ee ee ee ee ee ee ee Se SS ae ee i es ww es we ee ee et a a ee ee ee Oe ie 





AXXXXXXXXXXXAXXXXXXXX 
ACT NO. 41 xX 


DRY SHEETING X 


ra; = =20 
m0 SRD § PCT OX 
IXXXXXXXXXXXXXXXXXXXX 
) 30AUG83 EF SSEP83 


XXXKXKAXKKXKXKKXKKK 


ACT NO. 52 X 
| INSTALL TUB, STA X 
CK OUT PLUMBING  X--------- > 
X FROM 
| X TF 56 
D 4RD 4 PCT OX 
XXXXXXKKXKAXKKXXXXKK 


| 
| 
| 
| 
| 
| 
| 
| 
X | 
| 
| 
| 
| 
| 
| 
—TTMAY83 «EF 20MAY83 | 





V 
XXXXXXXAXAAAAAAAAKKAKA 
X ACT NO. obi X 
X X 
X ROOF SHINGLES X 
X Naame > 
X X 
X X 





XOD 15 RD 15 PCT OX 
XXXXXXXXXXXXXXXAXAKAKA 
ES 6SEP83 EF 27SEP83* 


| 
v 
) | XXXXXXXXXKXXXKXXXKXXKK 
| X ACT NO. 66 xX 
| X X 
| 


X WALL INSULATION X 


| ---------- >X xX 
TO 8X X 
TF -20 X X 


XOD 5 RD 5 PCT OX 
XXXXXXXXXXXXXXXXXXAAXX 
ES 30SEP83* EF 60CT83* 
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| Demo Network Logic Rep for Critical Path DATA DATE 1FEB83 PAGE NO. 7 
XXXXXXXXXXXXXXXXXXXX 
ACT NO. 9 X 
| X 
X 
| GRANULAR FILL X 
X---------> 
X FROM | 
| XaF 20 | 
87RD 7 PCT OX 
AXXXXXXXXXXXXXXXXXXX 


| 
| | 
 SFEB83 EF 16FEB83 | 


XXXXXXXXXXXXAXXAXXXXXX 
X ACT NO. 12 X 
X X 
[AL X UNDERSLAB ELECTR X 
JAT X ICALICALICALICAL X------- > 
“14 =X X 
X X 
XOD 7RD 7 PCT OX 
XXXXXXXXXXXXXXXXXAAXAX 
ES 17FEB83 EF 28FE883 





ee ee 


| 
| V 
| XXXKXXAKKXAKKXAKKKXAKK 
| X ACT NO. 22 X 
: | X X 
| | X CONCRETE SLAB ON X 
a >X GRADE x 
To xX X 
TF <-20 X X 


XOD 5 RD 5 PCT OX 
XXXXXXXXAXXXXXXXXAXARA 
ES 9MAR83 EF 15MAR83 
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Multi Family Housing Project 
START DATE 13DEC82 FIN DATE 6SEP84 


OATA DATE 


IFEB83 PAGE N 


Q. 8 


> 2 aw ew we we we ww ow © ow ww ow Ow © Ow = Op ee ee ee oe SS ee Pe SS Oe we Ss Se es i ee eS Se ee ae Ge a SSS SS SSS aS aS i a a ae a a a a ea ee ee ee a SSS ee a aS SS SS SS SS SS aS aS aS 















BXXXXXXXXXXXXXXXXXXX 
CT NO. 66 X 
X 
X 
WALL INSULATION xX 
We ; 
X FROM | 
X TF -20 | 
Mm SRD SePCT 0X 
XXXXXXXXXXXXXXXXXXX | 
30SEP83* EF 60CT83* | 
| 
V 
XXXXXXXXXXXXXXXXXKXXKK ~ XXXXXXXXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXKXXX XXXXXXXXXXXXXXXKXXKKXX 
X ACT NO. fOmex X ACT NO. ox X ACT NO. 76 X X ACT NO. 78 X 
X X X X X X X X 
X SHEETROCK WALLS X X TAPE AND BED XF 5 X FUR DOWN FOR CEI X X A/C ROUGH IN X 
X X-—=—-=>X X--~--—->X LING AIR CONDITI X------->x X 
X X X X X ONER X X X 
X X X X X X X X 
XOD 25 RD 25 PCT OX XOD 20 RD 20 PCT OX XOD 5 RD 5 PCT OX XOD 10 RD 10 PCT OX 


(AL 
LAT 
13 





XXXXXXXXXXXXXXXXXXXXXX 
ES 70CT83 EF 10NOV83 


XXXXXXAXXXAAAAXXAARAAXX 
ES 11NOV83 EF SDEC83 


XXXXXXXXXXXXAXXXXXXAXX 
ES 12DEC83 EF 16D0EC83 


XXXXXXXXXXXXXXXXXXXXAXX 
ES 19DEC83 EF 3JAN84 


> 





V 
XXXXXXXXXXXXXXXXAXAXXX 
X ACT NO. 80 xX 
X X 
X SHEETROCK FUR DO X 
X WNS X 
X X 
X X 
XOD 4 RD & PCT OX 


XXXXXXXXXXXXXXXXXXXXXX 
ES 4JAN84 EF SJAN84 


XXXXXXXXXXXXXXXXXXXXXX 


X ACT NO. o5: x 
X X 
X PAINTING X 
X X 
X X 
X X 


X00 20 RD 20 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 2MAR84 EF 29MAR84 


ayy 


XXXXXXXXXXXXXXXXXXXXXX 


X ACT NO. 87 X 
X X 
X TAPE AND BED FUR X 

DOWNS X 
X X 
X X 
X00 18 RO 15 PCT 0X 


XXXXXXXXXXXAXXXAXXXAXX 
ES 10JAN84 EF 30JAN84 


XXXXXXXXXXXXXXXXXXXXXX 


X ACT NO. 100 Xx 
X X 
X VINYL WALL COVER X 

ING besty 
X X 
X X 
XOD 8 RD 8 PCT OX 


XXXXXXXXXXXXXXXXXXXXXX 
ES 30MAR84 EF I0APR84 


>X D CEILINGS 


XXXXXXXXXXXXXXXXAXXXXX 
X ACT NO. 89 xX 
X X 
X TEXTURE WALLS AN X 
X 
X X 
X X 
XOD 13 RD 13 PCT Ox 
XXXXXXAXXXXXXXXXXXXXXXA 


ES 31JAN84 EF 16FEB84 


XXXXXXXXXXXXXXXAXAAXXA 


X ACT NOQ. 107 X 
X X 
X CLEAN UP X 

X 
X X 
X X 
X00 5 RO 5 PCT OX 


XXXXXXXXAXXXXXXXXXXXXX 
ES 11APR84 EF 17APR84 


XXXXXXXXXXXXXXXXXXXAXA 


X ACT NO. 93 Xx 
X X 
X DOORS AND TRIM X 

X 
X X 
X X 
X00 10 RO 10 PCT OX 


XXXXXXXXXXXXAXXXXXXXXX 
ES 17FEB84 EF IMAR84 


XXXXXXXXXXXXXXXXXXXXXX 


X ACT NOQ. 109 xX 
X X 
X RESILIENT FLOORI xX 
>X NG ANO BASES X 
X X 
X X 
X00 10 RO 10 PCT OX 


XXXXXXXXXXXXXXXXXXXXXX 
ES 18APR84 EF IMAY84 
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Demo Network Logic Rep for Critica] Path DATA OATE 1FEB883 PAGE NO. g 
XXXXXXXXXXXXXXXXXXXAXX 
X ACT NO. WS X 
| X X 
ML =X INSTALL CABINETS X 
m xX X------- > 
13 X X 
X X 
XOD 13 RD 13 PCT OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 2MAY84 EF 18MAY84* 


2 eee SSS SE SS SS SoS Sees Ses > 


| 
V 
! | XXXXXXXXXXXXXXXXXXXXXX 
: | X ACT NO. IN eex 
| X X 
| X SET APPLIANCES X 
| ---------- >X x 
TO X X 
TF 8 xX X 


XOD § RD 5 PCT- OX 
XXXXXXXXXXXXXXXXXXXXXX 
ES 21MAY84 EF 25MAY84* 


XXXXXXXXXXXXXXXXXAXXXX 
X ACT NO. 118 X 
X X 
X PLUMBING CONNECT X 


|---------->X IONS AND TRIMOUT X 
fc) es X 

IF <3 X X 
XOD 13 RD 13 PCT OX 
XAXXXXXXXXXXXKKXXKKXXK 

ES 21MAY84 EF 6JUN84* 
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amo Network Logic Rep for Critical Path DATA DATE 1FEB83 PAGE NO. 10 
XXXXXXXXXXXXXXXXXX 

I NO. 9 X 

X 

X 

RANULAR FILL X 

| pee, 
- X FROM | 
: meg —20 | 
1 7 RO 7 PCT OX | 
XXXXXXXXXXXXXXXXX | 
3FEB83 6EF 16FEB83 | 


SSS eS SS Sas SS Sa Ss 


ES 17FEB83 EF 24FEB83 


V 
XXXXXXXXKXXKKXXXXKXXXK 
X ACT NO. ia 
X X 
X UNDERSLAB AC FRE X $ 
X ON SON SON SONS X------- > 
X X | 
X X | 
X00 5 RD 5 PCT OX | 
XXXXXXXKXXXKAKXXXKKXXK | 
| 
| 


SS Se SSS SS SPSS SSS SS = 


| 

| V 

| XXXXXXXXXXXXXXXXXXXKX 
| X ACT NO. 22 X 
| X ; 
| 


X CONCRETE SLAB ON X 


——— >X GRADE x 
Toy x X 
TF -20 X x 


XOO 5 RD 5 PCT OX 
XXXXXXXXXXAXXXXXXXXXXX 
ES SMAR83 EF 15MAR83 
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—_eE ee EP ap ODP De Dees Sees ww SS Se SS oS oP Ow SP SP Se SE SP es ee Oe SS SS SS SS SSS SSP SEP SS SS SE SSS SS SS SSS SSS SE SS SSS SS SSS PS SSS SS SC SE SSS SS SS LP SSS SPSS SSS SSS SPS SSF SS se FSO FSS |S Se 


IAXXXXXXXXXXXXXXAXX 
T NO. 89 Xx 
X 
X 


EXTURE WALLS AN X 
CEILINGS Xenae=--~ 


aC 


13 RD 13 PCT 0X 
XXXXXXXXXXXAXXXXXX 
1JAN84 EF 16FEB84 


XXXXXXXXXXXAXXXXAXXAXX 
X ACT NO. oT x 
X X 
X BATHROOM TILE X 
X X 
X X 
X X 
XOD 5 RD 5 PCT 0X 
XXXXXXXXXXXXXXXXXAXAXXX 
ES 17FEB84 EF 23FEB84 


nc. 
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| 

V 
| XXXXXXXXXXXXXXXXXXXXXX 
| X ACT NO. 95 X 
X X 
X PAINTING X 
—----- >X X 
T0 X X 
HE “=idX X 





XOD 20 RD 20 PCT 0X 
XXXXXXXXXXXXXXXAXAXXAX 
ES 2MAR84 EF 29MAR84 
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XOD 13 RD 13 PCT OX 
XXXXXXXXXXXXAXXAXXXAAX 
ES 21MAY84 EF 6JUN84* 
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XXXXXXXXXXXXXXXXX 
NO. 115 X 
X 
X 
STALL CABINETS xX 
=. ' 
X FROM | 
: X TF -13 | 
13 RD 13 PCT 0X | 
XXXXXXXXXXXXXXXX | 
MAY84 EF 18MAY84% | 
| 
V 
X ACT NO. me x 
X X 
X PLUMBING CONNECT X 
X IONSIONSIONSIONS X-------> 
X X 
X X 


: 
XXXXXXXXXXXXXAXXXXXXXX 


| 

V 
| XXXXXXXKKXXXKXKXKK KKK 
| X ACT NO. 123. X 
| X X 
| X BATHROOM ACCESSO X 
===>) RIES X 
To 8X X 
1F 360 X X 


XOD 5S RD 5 PCT OX 
XXXXXXXXXXAXAXAXAXAAAX 
ES 7TJUN84 EF 13JUN84* 


orl 
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no Network Logic Rep for Critical Path DATA DATE 1FEB83 PAGE NO. 13 
(XXXXXXXXXXXXXXXX 
NO. 118 xX 
X 
X 
JMBING CONNECT X 
mB AND TRIMOUT X---------> 
X FROM | 
ir 86S | 
3 RD 13 PCT OX | 
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REPORT: S8ARBASE CURRENT PLAN vs BASELINE 8ARCHART by EARLY START REPORT DATE: 23MAY87 


PROJECT: ADMDEMO Open Plan Demonstration Network (ADM) TIME NOW: 05SEP87 


05 12 19 26 03 10 17 24 31 07 
oEP = SEP SEP SEP—sOCT:~=S sé CsiCéiET:C“C(G§C«C<iTCCTSCNNOV 


REM ORIG 87 87 87 87 87 87 87 87 87 87 
ACTIVITY DUR DUR DESCRIPTION | | | | | | | | | | 
AiO ~—- 20 3. 3° MATERIAL DELIVERY x CCC | | | | | | | | | 
P | | | | | | | | | 
A10 —- A30 2 2 EXCAVATION * XX...HH..... HH..... HH | | | | | | 
: | | | | | | | | | 
AiO ~—- AAO 6 6 GARDENING WORK * XXXXXHHX....HH..... HH. | | | | | 
: | | | | | | | | | 
Al0 ~—- A600 2 2 DRAINAGE WORK * XX...HH | | | | | | | 
, | | | | | | | | | 
A20 ASO 4  & ROOF FABRICATION x XXHHXX.. | | | | | | | | 
; | | | | | | | | | 
A20 —A60 6 § WALL FABRICATION * — CCHHCCCC | | | | | | | | 
: | | | | | | | | | 
A20 ~~ A70 3. 3° DOORS AND WINDOWS *  XXHHX....HH | | | | | | | 
: | | | | | | | | | 
A20 ~—s AB0 3 3 ELECTRICAL WORK *  XXHHX....HH..... HH | | | | | | 
: | | | | | | | | | 
AsO ~—s A910 2 2 INSTALL FENCE x Pe HH ei HH | | | | | | 
: | | | | | | | | | 
ASO ~— A700 5 § ERECTION x | CHHCCCC | | | | | | | 
: | | | | | | | | 
ASO ~— 80 2 2 PLUMBING WORK x | XHHX.. . . HH | | | | | | 
: | | | | | | | | | 
A70 —sAB0 2 2 PAINTING * | | CHHC | | | | | 
| | | | | | | | 
A80 ~=—s_ A90 2 2. FINISHING * | | | cc | | | | | | 
| | | | | | | | | 
BAR CHART KEY: A: Actual C: Critical H: Holiday Note: All characters represent 1 time units. 

P: In Progress X: Planned .: Float 


8: Baseline 








Project : ADMDEMO Description : Open Plan Demonstration Network (ADM) 


Activity D> 2 19 26 03 10 17 24 3] 07 
SEP oer Se Ser oe h OCT eC] OCT OCT NOV 
87 Sid 87 87 87 87 abe 87 87 87 


ee ee cr es ee ee ee re es es cs ce cr cr cc ee cc cee eee eee eee eee ee eee eee ee ee 


ee 
 A10 A4Q  * SEESSSS= 000 Cid | | | | | 
Meu 460 = | | | | | | | | 
A20 A50 SSS===_—Ci‘éd | | | | | | | 
A20 A60 ARTA | | | | | | | | 
- A20 A70 * S262 ae | | ! | | | | 
A20 A80 * === ==> ae oe | | | | 
A4O AIO i a= eee | | | | | | 
_ AGO ATO | INA | | | | | | | 
/ A6O A80 : | ===> | | | | | | 
a A80 , = | somtmarutun | | | | | | 
p A80 AIO | | ume =| | | | | | 
Bar Chart Key is Planned, A is Actual, _ is Float, ,is Critical 


= mm 
P is In Progress (all characters represent 1 time units) 
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OPEN PLAN TEST OPEN PLAN INCORPORATED PAGE: 1 


REPORT: ACTSS SCHEDULED START ACTIVITY LISTING by SCHEOULEO START REPORT DATE: 23MAY87 


PROJECT: ADMDEMO Open Plan Demonstration Network (A0M) TIME NOW: OSSEP87 





F222 VSS SPSS 2 SP SP FSP SF SS SS SS aw awe 2 ee ew SH ewe ee ee Se eee eee eee ee SES SES SSS SSS SS SS ESP SPS SSS SF SS SS SF SS SS Se CSF FEF SF SS BSR TS ss SS SS SP SBR ee ee ee Se eee eee ee SO eS] SIF 2S ae SO lL Ul SR Sl UU a eee 


REM ORIG oCHEDULED SCHEDULED = LATE LATE TOTAL 

ACTIVITY OUR OUR DESCRIPTION CODE 1 CODE 2 START FINISH START FINISH FLOAT 
Ald = A20 3 3 MATERIAL DELIVERY DEPTA GEN 075EP87 OSSEP87 07SEP87 OSSEP87 0 
Ald = A60 2 2. ORAINAGE WORK DEPTB UTIL O7SEP87 08SEP87 16SEP87 17SEP87 1 
A20 = AS0 4 4 ROOF FABRICATION DEPTA GEN 10SEP87 1SSEP87 14SEP87 17SEP87 2 
A20 = A60 6 6 WALL FABRICATION DEPTA GEN 10SEP87 17SEP87 10SEP87 VISEP87 0 
A200 =—s A70 3 3 DOORS AND WINDOWS DEPTA GEN 10SEP87 14SEP87 225EP87 24SEP87 8 
A20 = A80 3 3 ELECTRICAL WORK DEPTA UTIL 1SSEP87 17SEP87 24SEP87 28SEP87 10 
ASO =— AB0 0 0 OUMMY DEPTB GEN 16SEP87 1SSEP87 18SEP87 17SEP87 2 
Ab0 = A70 9 9 ERECTION DEPTB GEN 18SEP87 24SEP87 18SEP87 24SEP87 0 
Ab60) =—s_ A800 2 2 PLUMBING WORK DEPTA UTIL 18SEP87 21SEP87 25SEP87 28SEP87 9 
Al0 = A80 6 6 GARDENING HORK DEPTB OECO 22SEP87 29SEP87 21SEP87 28SEP87 10 
A770 ~=—s- A80 2 2. PAINTING DEPTB OECO 25SEP87 28SEP87 25SEP87 28SEP87 0 
A80 = AS0 2 2 FINISHING DEPTA GEN 29SEP87 S0SEP87 29SEP87 30SEP87 0 
A40 =—s AS0 2 2. INSTALL FENCE DEPTB GEN 30SEP87 010CT87 29SEP87 30SEP87 10 
Ald =—s- A30 2 2 EXCAVATION DEPTB GEN 010CT87 020CT87 29SEP87 30SEP87 16 
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Report GRAFRES on Project PDMDEMO : Open Plan Demonstration Network (PDM) 


RESOURCE HISTOGRAM on Early Dates for Resource A : RESOURCE A 
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OPEN PLAN 


REPORT: 


ACTES 


PROJECT: POMDEMO 


REM ORIG 





ACTIVITY 


Mm ro M—e NRO M&M Ww & Ww UN Ww MOM PO NO 


DUR OUR 


Mme Mm ~wR ON OH WwW & Ww NM Ww & NO NO 


DESCRIPTION 


DRAINAGE WORK 
EXCAVATION 
GARDENING WORK 
MATERIAL DELIVERY 
FOUNDATION 

DOORS & WINDOWS 
ROOF FABRICATION 
ELECTRICAL WORK 
WALL FABRICATION 
INSTALL FENCE & POSTS 
ERECTION 

PLUMBING WORK 
PAINTING 

DO FINISHING 


TEST OPEN PLAN INCORPORATED 


ACTIVITY LISTING by EARLY START 


Open Plan Demonstration Network (PDM) 


CODE 1 CODE 2 


Oy 


EARLY 
START 


22SEP87 
225EP87 
22S5EP87 
225EP87 
24SEP87 
255EP87 
25SEP87 
25SEP87 
25SEP87 
30SEP87 
0500787 
0500187 
120CT87 
1400787 


EARLY 
FINISH 


235EP87 
235EP87 
29SEP 87 
24S5EP87 
30SEP87 
29SEP87 
30SEP87 
29SEP87 
020CT87 
010CT8?7 
030CT87 
060CT87 
130CT87 
150CT87 


PAGE: 
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REPORT DATE: 23MAY87 


LATE 
START 


010CT87 
28SEP87 
060CT87 
225EP87 
28S5EP87 
070CT87 
295EP87 
090CT87 
255EP87 
140CT87 
050CT87 
120CT87 
120CT87 
1400187 


LATE 
FINISH 


020CT87 
25SEP87 
130CT87 
24SEP87 
020CT87 
0S0CT87 
020CT87 
130CT87 
0200187 
1$0CT87 
0S0CT87 
1300187 
130CT87 
1500187 


TIME NOW: 22SEP87 


TOTAL 
FLOAT 


— 


i 
oO oOo maeqc“cneoonene @wnMm © O&O rh +) 
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OPEN PLAN TEST OPEN PLAN INCORPORATED PAGE: 1 
REPORT: BARBASE CURRENT PLAN vs BASELINE BARCHART by EARLY START REPORT DATE: 23MAY87 
PROJECT: POMDEMO Open Plan Demonstration Network (POM) TIME NOW: 22SEP87 
22 29 06 13 20 27 03 10 17 24 
SEP = SEP OCT OCT OCT OCT NOV NOV NOV NOV 
REM ORIG 87 87 87 87 87 87 87 87 87 87 
ACTIVITY DUR OUR DESCRIPTION | | | | | | | | | | 
P300 2 2 DRAINAGE WORK MK oaieac ee | | | | | 
‘i | | | | | | | | | 
P200 2 2 EXCAVATION XX | | | | | | | | | 
a 
P400 6 § GARDENING WORK XXXXHHXX...HH..... HH. . | | | | | | 
: | | | | | | | | | 
P100 3 3 MATERIAL DELIVERY CCC | | | | | | 
; | | | | | | | | | 
P700 5 5 FOUNDATION * XXHHXXX.. | | | | | | | 
: | | | | | | | | | 
P800 3 3 DOORS & WINDOWS * XHHXX...HH..... | | | | | 
aot Ul | 
P500 4 4 ROOF FABRICATION * XHHXXX.. | | | | | | | 
. | | | | | | | | | 
P1100 3 3 ELECTRICAL WORK * XHHXX...HH..... HH. . | | | | | 
: | | | » | | | | | | 
P600 6 6 WALL FABRICATION x CHHCCCCC | | | | | | | | 
: | | | | | | | | | 
P1300 2 2 INSTALL FENCE & POSTS * MoH: cos HH.... | | | | | 
| | | | | | | | | 
P900 5 5 ERECTION * | ceccce | | | | | | 
: | | | | | | | | | 
P1000 2 2 PLUMBING WORK x | XX... .HH | | | | | | 
: | | | | | | | | 
P1200 2 2 PAINTING : | | cc | | | | | | 
: | | | | | | | | 
P1400 2 2 DO FINISHING . |CC | | | 
: | | | | | | | | | 
BAR CHART KEY: A: Actual C: Critical H: Holiday Note: All characters represent ! time units. 
P: In Progress X: Planned .: Float 
B: Baseline 
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Project : PDMDEMO Description : Open Plan Demonstration Network (PDM) 


Beeivity ce Zo O6 rs 20 4 03 10 ee 24 
SEP SEP OCT OC | OCT OC] NOV NOV NOV NOV 
87 87 87 87 B87 Gy 87 87 Snr 87 


P300 = | 
P200 == | | | | 
P400 ee | 
P100 | | | | 
P700 =SEESES= | | | 
P800 ee | | 
P500 KK | | | 
P1100 a —— ee | 
P6500 * | 
P1300 ne | 
P900 * | 
P1000 * | 
P1200 * | 
P1400 % am | 


Bar Chart Key 


. MO 


Sis Planned, A is Actual, _ is»Float, ,is Critical 
P is In Progress (al) characters represent 1 time units) 
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OPEN PLAN TEST OPEN PLAN INCORPORATED PAGE: 1 


REPORT: ACTRES ACTIVITY RESOURCE LISTING BY EARLY START REPORT DATE: 23MAY87 


PROJECT: POMDEMO TIME NOW: 225EP87 


Open Plan Demonstration Network (POM) 


a ep ag ae a EF Or eee a A I EO eS Oe eee ee ee eee SS SS Se SS eee a es Oe ee a a SS Se SS SS ee me a ee es eer Se I a BS SSS SSS ee oS ee a 


REM ORIG (<eeeer-- RESOURCE--------> EARLY EARLY TOTAL 
ACTIVITY OUR DUR DESCRIPTION CODE! COOE2 COOE T QTY 0/5 OUR START FINISH FLOAT 
P300 2 DRAINAGE WORK DEPTB® UTIL A 2 © 0 “22SEPs7 235EP87 7 
P200 2 EXCAVATION DEPTB GEN A 8 0 OQ 225€P87 23S5EP87 2 
P400 6 GAROENING WORK DEPTB DECO A 6 0 0 225EP87 295EP87 10 
P100 3 MATERIAL DELIVERY DEPTA GEN A 2 0 OQ 225EP87 24S5EP87 0 
P700 9 FOUNDATION DEPTB GEN A 10 0 0 245€P87 30SEP87 2 
P800 3 DOORS & WINDOWS OEPTB GEN A 4 0 0 25S€P87 29SEP87 8 
P500 4 ROOF FABRICATION OEPTA GEN A 4 0 0 255€P87 30SEP87 2 
P1100 3 ELECTRICAL WORK DEPTA UTIL A 4 0 0 255EP87 295EP87 10 
P600 ~ 6 WALL FABRICATION DEPTA GEN A 9 0 OQ 25SEP87 020CT87 0 
P1300 2 INSTALL FENCE & POSTS OEPTB GEN A 3. 0 0 305€P87 010CT87 10 
PS00 9 ERECTION DEPT8 GEN A 6 0 0 050CT87 090CT87 0 
P1000 2 PLUMBING WORK DEPTA UTIL A 4 0 0 050CT87 060CT87 9 
P1200 2 PAINTING DEPTB OECO A 4 0 0  120CT87 130CT87 0 
P1400 2 00 FINISHING DEPTA GEN A 8 0 QO 140CT87 1S0CT87 0 

B 5 0 0 


ey 


OPEN PLAN TEST OPEN PLAN INCORPORATED PAGE: 1 


REPORT: ACTRES ACTIVITY RESOURCE LISTING BY SCHEDULED START REPORT DATE: 23MAY87 


» PROJECT: POMDEMO Open Plan Demonstration Network (POM) TIME NOW: 22SEP87 


SP ae ae re a a Se ae PE SE I 0 SE SS 8 te SP a SE LL LP SE 2 OS Se eee eee PPS SFP SS SSS FFF Se SS SF 2 SF Ss 


REM ORIG (eeeeren- REOOURGEsa==----> SSCHEGULED SCHEDULED =TOTAL 

ACTIVITY OUR DUR DESCRIPTION CODE! CoDE2 CODE T QTY O/S DUR START FINISH FLOAT 
P300 2 DRAINAGE WORK DEPTB UTIL A o 0 0 25SEP87 28SEP87 7 
P100 3 MATERIAL DELIVERY DEPTA GEN A 5 0 0 020CT87 060CT87 0 
P200 2 EXCAVATION DEPT8 GEN A 8 0 0 050CT87 060CT8?7 2 
P800 Be 3 DOORS & WINDOWS DEPT8 GEN A 4 0 0 070CT87 090CT87 8 
P500- 4 ROOF FABRICATION DEPTA GEN A 4 0 0 070CT87 120CT87 2 
P600: 6 WALL FABRICATION DEPTA GEN A 9 0 0 070CT87 140CT87 0 
P700 , - 9 FOUNDATION DEPT8 GEN A 10 0 QO 130CT87 190CT87 2 
PIVO0Z =." 3 ELECTRICAL WORK DEPTA UTIL A 4 0 0 150CT87 190CT87 10 
P3900 cRETr > ERECTION DEPTS GEN A 6 0 0 200CT87 260CT87 0 
P1000 _.:- 2 PLUMBING WORK DEPTA UTIL A 4 0 0 200CT87 2100187 9 
padd- 6 GARDENING WORK DEPT8 DECO A 6 0 0 220CT87 2900187 10 
P1200 2 PAINTING DEPT8 ODECO A 4 0 0 270CT87 2800187 0 
P1490 ; 2 00 FINISHING DEPTA GEN A 8 0 0 290CT87 300CT87 0 

8 5 0 0 
P1300 2 INSTALL FENCE & POSTS DEPT8 GEN A 3. 0 0 300CT87 O2N0V87 10 


uae 
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TEST OPEN PLAN INCORPORATED 
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DESCRIPTION 


Open Plan Demonstration Network (POM) 
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REPORT DATE: 23MAY87 
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APPENDIX GS 


SAMPLE OUTPUT FROM 


MACPROJIECT 


taken from 
Richard O. Gamble II, "Construction Scheduling 
Using MacProject", Department of Civil Engineering, 
University of Florida, 1986. 
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See rr re te CPM NETWORK ANALYSIS 2 ee eee 
ACT. DESCRIPTION DUR. COST ES EF LS LF T 

1 MOVE IN 6 $2,736.00 0 6 0 "6 

2 EXCAVATE SITE 7 $8,638.00 6 13 6 13 
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5 2 $46.00 icy 21 26 28 
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TOTAL DURATION OF PROJECT IS: 30 
DIRECT COST OF PROJECT IS: bn i a oO) 
INDIRECT COST OF PROJECT IS: $1,020.00 


TOTAL COST FOR PROJECT IS: $18,798.00 
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UMBER NAME NAME 
1 FILE27.RES TRUCKS 

| DATE * REQ'D oO 4 9 ies 18 23 
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|27 DEC 86 4 etter). 1 1 
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30 DEC 86 23 eee tie te ddd 1 0111971211111111111111111 
(31 DEC 86 23 mime pase) 1 91142910 1411111111111111111 
11 JAN 87 23 Mememeiieliet Viet d211111111191111211111111111111 
m2 JAN 87 23 meee tiie 414 1111711111111111111111111 
3 JAN 87 23 mei ? tie ttt) 1111112111111111111111111 
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m7 JAN 87 23 Pema htt ay 17 d111111111111111111111 
8 JAN 87 23 meee tt Pt 11 1 111 111111111121111111111 
9 JAN 87 3 pa 1-4 4 

10 JAN 87 3 ede ated 

11 JAN 87 3 ieee a 

[12 JAN 87 3 field ead 

(13 JAN 87 3 fee 11 

14 JAN 87 2 1111 

(15 JAN 87 2 delete 

16 JAN 87 1 tel 

m7 JAN 87 i ial 

18 JAN 87 1 ia 

19 JAN 87 1 igi 

20 JAN 87 1 do 

21 JAN 87 1 lal 

22 JAN 87 1 1 

23 JAN 87 1 11 
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25 JAN 87 fl Ta 
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27 JAN 87 1 fet 

28 JAN 87 1 ie 
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'1 FEB 87 1 11 
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mero DEFINT B,D,E,G-L,N,P-Z 


bo 


| 100 DEFSNG A,C,F,M,0 
m0 ClS: KEY OFF 
200 GOTO 2800 
, 250 K=1:Y=1:W=75 
200 COLOR 12 
50 LOCATE Y,xX 
400 PRINT CHR$(201)+STRING$SCW,CHR$( 205) )+CHR$( 187 ) 
450 FOR N=1 TO 21 
500 LOCATE Y+N,X:PRINT CHR$(186)+STRING$CW,CHR$(C 32) )+CHR$(186) 
m550 NEXT 
600 LOCATE Y+N,X:PRINT CHR$(200)+STRING$C(W,CHR$( 205) )+CHR$( 188) 
m™o50 COLOR 11 
my00 LOCATE 3,25:PRINT “ CECE PPPPPP MM MM" 
meme nrte 4,25:PRINT “* CCCCCCC PPPPPPPP MMM MMM" 
meoo LCOCATE 5,25:PRINT "CCC CG PPP PPP MMMM MMMM" 
PeOmmeoATE 6,25:PRINT "CCC PPP PPP MMMMMMMMM" 
POmeOoCeAtre ¢,25:PRINT “CCC PPPPPPP MM MMM MM" 
PesUmmeeAreE 8,25:PRINT "CCC CC PPP MM MM" 
mpudO LOCATE 9,25:PRINT CECECECCC PPP MM MM " 
meooo LOCATE 10,25:PRINT" ECCC PPP MM MM" 
-1100 COLOR 13 
BISOmEeOCATE 13,39:PRINT "by" 
BeUONCOCATE 15,33:PRINT "Edward J. Von Hagel” 
§°1250 LOCATE 16,20:PRINT “Some subroutines written by Robert D. Rotz" 
1300 LOCATE 18,30:PRINT “University of Florida" 
mosO COLOR 14 
1400 LOCATE 22,28:PRINT “Versiion 25 - 27 FEB 1987" 
1450 FOR T = 1 TO 4000: NEXT 
2500 COLOR 7 
#550 CLS 
1600 PRINT “ THIS PROGRAM WILL DETERMINE THE CRITICAL PATH IN COMPLETING CON 
B> 1 RUCTION" 
1650 PRINT “PROJECTS. INFORMATION REQUIRED TO RUN THE PROGRAM INCLUDES:": PRINT 
1700 PRINT “ ACTIVITY NUMBER" 
7750 PRINT “ ACTIVITY DESCRIPTION (Coptional)" 
1800 PRINT "“ DURATION OF EACH VACHIVITY 
1850 PRINT “ DEPENDENCIES FOR EACH ACTIVITY" 
'1900 PRINT “ COST PER UNIT DURATION FOR EACH ACTIVITY (Coptional)" 
1950 PRINT “ JOB OVERHEAD COST PER UNIT DURATION (Coptional)": PRINT 
2000 PRINT “ CUT oy TEP SeC ONS lol sOplinc EFAREY SIART/ZFINISH DATES, LATE 
START /" 
2050 PRINT “FINISH DATES, CRITICAL ACTIVITY FLAGS, TOTAL TIME FOR COMPLETION, TO 
eAL" 
2100 PRINT "COST FOR THE PROJECT Coptional), AND A GANTT (CBAR) CHART.": PRINT 
2150 PRINT " THE PROGRAM CAN HANDLE A MAXIMUM OF 175 ACTIVITIES. EACH AC PIV 
BTY CAN“ 
2200 PRINT “HAVE A MAXIMUM OF 6 DEPENDENT ACTIVITIES. ACTIVITY DESCRIPTIONS MUS 
7 GE A“ 
2250 PRINT "MAXIMUM OF 15 CHARACTERS. IF MORE THAN 15 CHARACTERS ARE ENTERED, T 
PSE EXTRA" 
meSOO PRINT "CHARACTERS ARE TRUNCATED. ACTIVITIES MAY BE ENTERED IN ANY ORDER." 
2350 PRINT: COLOR 12 
2400 PRINT 
2450 PRINT:PRINT “IF YOU HAVE A SEPARATE DATA DISK, PLACE IT IN DRIVE <A> NOW." 
2500 PRINT: COLOR 7 
mo50 LOCATE 24,1:INPUT "DO YOU WISH TO CONTINUE (CY or N)";A$: PRINT 


m600O IF A$ = "Y" OR A$ = "y" THEN 2900 

(2650 IF A$="N" OR A$="n" THEN 38050 | 

(2700 BEEP:LOCATE 22,1:COLOR 12: PRINT "PLEASE ANSWER Y FOR YES OR N_ FOR NO.” 
_;:COLOR 7:PRINT:GOTO 2550 


750 Paes Se SEEKERS AKT ESE AKECEEEREKREKKAKK SKK EKEKEEEKAKEKKKHEEKKKEKEAREKAKKKKAE EK ES 
‘2800 REM * ¥# XX FEE KK KKK HK HREKEAKHKAEEAEK KE HKKAEKREEKKKKAAKHEAAHKAKKAKEXX RH ECIN PROGRAM 
2850 REM * #¥¥F KEKE KKK KEE AKER KEKE KEKE KEE EEE EEE EKER KEKE KEKE 


2900 CLS: SOUND 300,1: SOUND 400,2: SOUND 900,3 


2950 V$=DATE$:WIDTH "LPT1:",132:X$=STRING$(25,177):Y$=STRING$(4,196) :U$=STRINGS$ ( 


m,197) 

3000 P1$="###": P2g="\ \": P3$="SS##F# , . ##";: P4S= "HHH ";P5$="### " 
13050 P6S="$S$HHHHFH#AHSEH, .H#": PTHSH="F$PSHHHHHHH, . HH" 

3100 REM 


3150 REM*¥FX HE EKKKK KKK KAKA KAKA KEKAAEKEHEKAEKAHAKKKE KEKE MM — ¢ OF ACTIVITIES ALLOWED 
3200 REM FEE KEKKKKKK KKK MM1= ¢ OF DEPENDENCIES ALLOWE 
D 

3250 REM 

i3300 N=1 

3350 MM=150 

13400 MM1 =10: REM******NOTE MM1 may not exceed 10 unless a change is also made 
lin the way that data in stored in the input and write statements. ***## ##*#*##4*** 
13450 MM2 =5 : REM******NOTE MM2 may not exceed 10 unless a change is also made 
in the way that data is stored in the input and write statements, ****#*#** #44 *** 
13500 DIM ACT(MM), DESC$(MM), DUR(MM), COST(MM), DEPON(MM,11), K(MM), PED(MM,11) 
13550 DIM ES(MM),EF(MM),LS(MM), LF(MM), TF(MM), ACTCOST(MM) 

3600 DIM RESOURCE$(10),RESOURCE(MM,10) , PROJECTNAMES$(75) ,ACTNOS(75) 

3650 DIM DATEREC(400,5), JDATE(400) 

3700 CALCRUN$ = "Y" 


3750 REM FX ¥ FF KH KKHKAKHKAKA KAKA KH KAK AKA KK EKKHE HEHEHE KHER KEKE KEKE KEKE ES 


3800 REM***#** 44% e444 ee ee ee ee RED TSPLAY CURRENT FILES AND OFFER TO RETRIEVE DATA 

3850 REM* ¥¥F KEKE KAKA EKA KAA HERE KEK KKK KKK EK HEKKEKKHKKHEKHKKKEKKEKKKSE KS 

3900 OPEN "PROJLIST" FOR APPEND AS #2: CLOSE 

3950 OPEN "I", 2, "“PROJLIST" 

4000 NNN = 0 

4050 PRINT: COLOR 14: PRINT " THE PROJECTS LISTED BELOW ARE CURRENTLY ON FILE." 

4100 PRINT 

4150 PRINT " PROJECT PROJECT PROJECT PRO 

JECT " 

4200 PRINT " # NAME + NAME z NAME # 

NAME" 

4250 P8$ = " ### \ ‘ ### 8 86\ x ### 8 \ : +## = 
. 

4300 COLOR 7 

4350 FOR X = 1 TO 80: PRINT "-":: NEXT 

4400 IF EOF (2) THEN CLOSE : GOTO 4600 

4450 NNN = 1 + NNN 

4500 INPUT#2, PROJECTNAMES$(NNN), ACTNOS(NNN):PRINT USING P8$: NNN: PROJECTNAMES 

$(NNN); 

4550 GOTO 4400 

4600 IF NNN = O THEN 5150 

4650 LOCATE 22,1: INPUT "DO YOU WISH TO RECALL DATA FROM AN EXISTING PROJECT LIS 

TED ABOVE (Y OR N)";A$ 


4700 IF A$ = "N" OR A$ = “n" THEN 5150 

4750 IF A$ = "Y" OR A$ = "“"y" THEN 4850 

4800 BEEP:COLOR 12: PRINT "PLEASE ANSWER Y FOR YES OR N- FOR NO.":COLOR 7: 
| GOTO 4650 


iv 0 





14850 :LOCATE 22,1:PRINT" 


4900 :LOCATE 23,1:PRINT" 


s 


14950 LOCATE 22,1: INPUT "WHICH PROJECT DO YOU WISH TO RECALL (ENTER THE PROJECT 


#) o"; NNN1 


5000 IF NNN1i > NNN OR NNNI < 1 THEN COLOR 12:PRINT "YOU MUST ONE OF THE ABOVE NU 
MBERS":COLOR 7:BEEP: GOTO 4950 

5050 PROJ$ = PROJECTNAMESS$(NNN1): N = ACTNOS(NNN1) 

9100 GOTO 36200 

5150 CLS :PRINT : INPUT "WHAT IS THE NAME OF THIS NEW PROJECT"; PROJ$: PRINT 

59200 IF PROJ$ = "" THEN COLOR 12: INPUT "PLEASE START THE PROJECT NAME WITH A LE 
TTER. ",PROJ$ : GOTO 5200 

5250 IF LEN (PROJ$) > 8 THEN COLOR 12: INPUT "PLEASE ENTER A NAME WITH NO MORE T 
HAN 8 CHARICTERS. ", PROJ$ : GOTO 5200 

9300 IF ASC(LEFT$ (PROJ$,1)) < 65 OR ASC(LEFT$ (PROJ$,1)) >122 THEN COLOR 12: 


INPUT " PLEASE START THE PROJECT NAME WITH A LETTER. "%",PROJ$ :GOTO 5200 

5350 IF ASC(LEFT$ (PROJ$,1)) > 90 AND ASC(LEFT$ (PROJ$,1)) < 97 THEN COLOR 12: 
INPUT " PLEASE START THE PROJECT NAME WITH A LETTER. ",PROJ$ : GOTO 5200 

15400 NEWPROJ$ = "Y”" 

5450 IF PROJ$ = "PROJLIST" THEN BEEP:COLOR 12: INPUT "PLEASE USE ANOTHER NAME”,P 

ROJ$ 

15500 MATCH$ = "N" 


5550 FOR X = 1 TO LEN(PROJ$) 


75600 LOWERCASE = ASC(MID$(PROJ$,X,1)) 


9650 IF LOWERCASE >= 97 AND LOWERCASE <= 122 THEN UPPERCASE = LOWERCASE - 32 
ELSE UPPERCASE = LOWERCASE 
59700 MID$(PROJ$,X,1) = CHR$(UPPERCASE) 


5750 NEXT X 


5800 FOR X = 1 TO NNN 


5850 IF PROJ$ = PROJECTNAMES$(X) THEN MATCH$ = "Y" 

5900 NEXT Xx 

5950 IF MATCH$ = "Y" THEN COLOR 12:INPUT "YOU ALREADY HAVE A FILE BY THAT NAME. 
PLASE USE ANOTHER. “,PROJ$:GOTO 5200 : 


5000 COLOR 7 


5050 GOTO 7400 
5100 REM **# ® RRR ERK ER ERE EEE RE RRR ROR RR RR OR ORK OK ROO EK OK OK 


5150 REM REREEKKKEEKRKEKRKEEKKKEEKKKEKKKEKERKEREKEKEEEKRERERKKKEKKKKKKEKEKEKXDROGRAM MENU 


5200 REM KREKKKRKKEKKKKKKKKEKEKKHKKEKKEKKEKREKRKEKEKKKKKKKEKKEKKKKKAKKKKKKKKKKHEKEKKEKKKKKEKES 


5250 CLS : PRINT X$ ” PROGRAM MENU " AS= PRINT 


3300 PRINT 

3350 PRINT TAB(20); "(1) VIEW DATA ON SCREEN": PRINT 

3400 PRINT TAB(20); "(2) EDIT EXISTING DATA":PRINT 

5450 PRINT TAB(20); "(3) ADD NEW ACTIVITY": PRINT 

3500 PRINT TAB(20); "(4) DELETE AN ACTIVITY” :PRINT 

3550 PRINT TAB(20); "(5) GANTT (BAR) CHART” :PRINT 

3600 PRINT TAB(20); "(6) DELETE A PROJECT FROM FILES": PRINT 
3650 PRINT TAB(20); "(7) DISPLAY RESOURCE HISTORGRAM": PRINT 


3700 PRINT TAB(20); "(8) EXIT PROJECT AND SAVE, AND/OR, [OUT 2 PRINT 
3750 PRINT "THE CURRENT PROGRAM AND DATA FILE IS: “";PROJ$:PRINT 
5800 INPUT "ENTER SELECTION "; SELECTION 


3850 IF SELECTION > 8 OR SELECTION < 1 THEN BEEP:COLOR 12: PRINT "YOUR SELECTION 
IS NOT ONE THAT IS AVAILABLE": COLOR 7:PRINT: GOTO 6800 


5900 CLS 


5950 IF SELECTION 1 GOTO 11600 
7000 IF SELECTION 2 THEN CALCRUN$ 
7050 IF SELECTION = 3 THEN CALCRUNS 


"¥" : HISTCALCS$ 
"Y" ; HISTCALC$ 


"¥" :GOTO 15200 
"Y" ;GOTO 11500 


" 
tt 


lee) 








17100 IF SELECTION = 4 GOTO 31550 
7150 IF SELECTION = 5 GOTO 27800 

7200 IF SELECTION = 6 GOTO 38250 
7250 IF SELECTION = 7 GOTO 39650 

7300 IF SELECTION = 8 GOTO 37650 
7350 REM KKKEKKRKEKKKKKKKKEKKKKKKKKKKKKHK KK KKK HKKKKHKKHKKKKKHKHKKKKE KK KKK KKK KKK 
7400 REM KHRAKAKAAKAEKKKKAHAAAKHAKKK KAKA KK AKKK KK AKKEKK KKK KAKKKKEKKKAKKKKTNPLT AGriVitTy DATA 
7450 REM KKKKKHKKKHKKKKKEKKKHKHKHKHKKHKKKKKKKKKKKHKHKHKHK KK KE KRHKKKKKKKKKKKKHKKHKHKKKHKKKKKKKKS 
17500 CLS 
7550 INPUT "YOU MAY MANAGE UP TO FIVE RESOURCES. DO YOU WISH TO UTILIZE THIS OP 
mrON (Y/N)";A$: CLS : 
‘7600 IF A$ = "Y" OR A$ = "y" THEN 7750 
7650 IF A$ = "N" OR A$ "n" THEN 9050 

7700 BEEP: GOTO 7550 

7750 COLOR 14:PRINT "IF YOU HAVE NO ADDITIONAL RESOURCES YOU WISH TO TRACK JUST 
STRIKE 'RETURN'":COLOR 7 
7800 PRINT 

7850 PRINT: INPUT "WHAT YEAR DOES THIS PROJECT START (e.g. 87)";SJ$ 

7900 IF SJ$ = "" THEN SJ$ = "7" 

7950 IF ASC(RIGHT$(SJ$,1)) >= 48 AND ASC(RIGHT$(SJ$,1)) <= 57 THEN 8050 

8000 COLOR 12: PRINT "PLEASE ENTER EITHER NOTHING OR THE YEAR":COLOR 7:GOTO 7850 
8050 PRINT: INPUT "WHAT MONTH DOES THIS PROJECT START (1 TO 12)";DA$ 

8100 IF DA$ = "" THEN DA$ = "1" 

8150 IF VAL(DA$) >= 1 AND VAL(DA$) <= 12 THEN GOTO 8250 

B200 COLOR 12: PRINT "ENTER A INTIGER FROM 1 TO 12 TO REPRESENT THE MONTH": 

COLOR 7 : GOTO 8050 

3250 PRINT: INPUT "WHAT DAY OF THE MONTH DOES THIS PROJECT START(1 TO 31)";TE$ 
msoO IF TE$ = "" THEN TE$ = "i" 

3350 IF VAL(TE$) >= 1 AND VAL(TE$) <= 31 THEN GOTO 8450 

3400 COLOR 12: PRINT "ENTER AN INTIGER FROM 1 TO 31 TO REPRESENT THE DAY": 

COLOR 7:GOTO 8250 

3450 GOSUB 45100 

3500 PRINT 

3550 INPUT "WHAT IS THE FIRST RESOURCE YOU WISH TO TRACK";RESOURCE$(1) 

3600 PRINT 

3650 INPUT "WHAT IS THE SECOND RESOURCE YOU WISH TO TRACK"; RESOURCES (2) 

3700 PRINT 

3750 INPUT "WHAT IS THE THIRD RESOURCE YOU WISH TO TRACK";RESOURCE$(3) 

3800 PRINT 

$850 INPUT "WHAT IS THE FOURTH RESOURCE YOU WISH TO TRACK"; RESOURCES(4) 

3900 PRINT 

3950 INPUT "WHAT IS THE FIFTH RESOURCE YOU WISH TO TRACK";RESOURCE$(5) 

1000 PRINT 

1050 CLS INPUT "WHAT IS THE JOB OVERHEAD COST PER UNIT DURATION"; OHC 

100 IF OHC<O THEN BEEP: GOTO 9050 

150 N=1 

#200 CLS 

1250 COLOR 14:PRINT "BEGIN ENTERING DATA FOR EACH ACTIVITY WITHIN THE PROJECT” 
PRINT: COLOR 7 

'300 INPUT “WHAT IS THE CODE NUMBER FOR THIS ACTIVITY"; ACT(N): PRINT 

350 INPUT "WHAT IS THE DESCRIPTION FOR THIS ACTIVITY"; DESC$(N): PRINT 

400 INPUT "WHAT IS THE DURATION FOR THIS ACTIVITY"; DUR(N): PRINT 

450 IF DUR(N)<1 THEN BEEP: GOTO 9400 

500 INPUT "WHAT IS THE COST PER UNIT DURATION FOR THIS ACTIVITY";COST(N):PRINT 





ing 





3550 
9600 
3650 
1700 


IF COST(N)<O THEN BEEP: 


INPUT 


D: PRINT 
IF D<O THEN BEEP: 


GOTO 9500 


“THIS ACTIVITY IS DEPENDENT UPON HOW MANY ACTIVITIES BEING COMPLETED" 


IF D>MM1 THEN BEEP: 


FOR X=1 TO 2000: 


NEXT: 


GOTO 9600 
COLOR 12: PRINT 
COLOR 7: CLS: PRINT: 


“MAXIMUM OF "; 
GOTO 9600 


MM1; "DEPENDENCIES ONLY" 


1750 IF D<>0O THEN 9950 
800 K(N)=0 

1850 DEPON(N,1)=0 

9900 GOTO 10750 

1950 K(N)=D 

0000 FOR X=1 TO D 

0050 IF D = 1 THEN DEP$ = "": GOTO 10600 

0100 IF X = 1 THEN DEP$ = “FIRST” 

0150 IF X = 2 THEN DEP$ = "SECOND" 

0200 IF X = 3 THEN DEP$ "THIRD" 

10250 IF X = 4 THEN DEP$ = "FOURTH" 

'0300 IF X = 5 THEN DEP$ = "FIFTH" 

‘(0350 IF X = 6 THEN DEP$ = "SIXTH" 

0400 IF X = 7 THEN DEP$ "SEVENTH" 

0450 IF X = 8 THEN DEP$ = "EIGHTH" 

‘(0500 IF X 9 THEN DEP$ = "NINTH" 

0550 IF X = 10 THEN DEP$ "TENTH" 

0600 PRINT "INPUT DEP$ DEPENDENT ACTIVITY CODE NUMBER";: INPUT DEPON(N,X): P 
INT 

0650 IF DEPON(N,X)<1 THEN BEEP: GOTO 10600 

0700 NEXT X 

0750 INPUT "DOES THIS ACTIVITY USE ANY OF THE IDENTIFIED RESOURCES (Y/N)";A$ 
0800 IF A$ = "Y" OR A$ "y" THEN 10950 

0850 IF A$ "N" OR A$ n" THEN 11200 

0900 BEEP:GOTO 10750 

0950 FOR X = 1 TO 5 

1000 IF RESOURCE$(X) "" THEN 11150 

1050 PRINT "HOW MANY ";RESOURCE$(X);" DO YOU NEED FOR THIS ACTIVITY"; 

1100 INPUT RESOURCE(N,X) 

1150 NEXT 

1200 PRINT: INPUT "DO YOU NEED TO REASK QUESTIONS FOR THIS ACTIVITY (Y or N)";A$ 
PRINT 

1250 IF A$="Y" OR A$="N" OR A$ = “y" OR A$ = “n" THEN 11300 ELSE BEEP: GOTO 112 
0 

1300 IF A$ = "Y" OR A$ y" THEN GOTO 9200 

1350 INPUT “ENTER ANOTHER ACTIVITY (Y or N)"; A$: PRINT 

1400 IF A$="Y" OR A$="N" OR A$ = "y" OR A$ = "n" THEN 11450 ELSE BEEP: GOTO 113 
0 

S450 IF AS = "N" OR A$ n" THEN CLS: GOTO 11550 

1500 N=N+1: GOTO 9200 

1550 PRINT X$ " PROGRAM MENU " X$: PRINT: PRINT: GOTO 6350 

J1600 REM FX EKER EKKAEEKREKEREKREEKEKEKREKRKKAEKEREEKEKREKAREEREKKEREKKRERAERKEKREKK KEKE 
1650 REM KKKEKKKKKKKKKRKKKKKKKKEKKEKKKKEKKKKKKKAKKEKREKEKEKKKEKVY I CW DATA ON SCREEN 
1700 REM KKEKEKEKKKKKEKEKKKKEKEKKEKEKEEKKEKKEKCKEKKCKCKECKETKECKCKCTKEKCKTKKCKKEEKEKKEKEKCKCKEKEKCKCKEKEKEKS 
71750 PRINT TAB(60); V$ 

meeOO PRINT TAB(10); "PROJECT: "“; PROJ$: PRINT 

71850 PRINT x$ " LISTING OF ACTIVITIES " X$: PRINT 

71900 PRINT TAB(44);"RESOURCES REQ'D" 






1950 PRINT TAB(1);"ACT.";TAB(7); "DESCRIPTION"; TAB(25);"DUR.";TAB(30);"UNIT COST 
S TAB(43);"#1";TAB(47);"#2";TAB(51);"#3";TAB(55);"#4";TAB(59);"#5";TAB(66):"DEP 
"NDENCIES": PRINT 


Less) 











12000 FOR X = 1 TO N 
12050 PRINT TAB(1) PRINT USING P1$;ACT(X); 

12100 PRINT TAB(7) PRINT USING P2$;DESC$(X) ; 

12150 PRINT TAB(25): PRINT USING P1$;DUR(X); 

[2200 PRINT TAB(29): PRINT USING P3$;COST(X); 

[2250 PRINT TAB(42): PRINT USING P1$;RESOURCE(X,1); 

12300 PRINT TAB(46): PRINT USING P1$;RESOURCE(X, 2) ; 

2350 PRINT TAB(50): PRINT USING P1$;RESOURCE(X,3); 

.2400 PRINT TAB(54): PRINT USING P1$;RESOURCE(X,4); 

2450 PRINT TAB(58): PRINT USING P1$;RESOURCE(X,5); 

.2500 PRINT TAB(66) ; 

2550 FOR Y = 1 TO MM1 

2600 IF Y = 4 OR Y = 7 OR Y = 10 THEN PRINT TAB(66) 

2650 A=Y+1: B=DEPON(X,A) 

2700 PRINT USING P5$; DEPON(X,Y); 

2750 IF B=0 THEN PRINT " ": GOTO 12850 

(2800 NEXT Y 

2850 NEXT X 

2900 PRINT: PRINT 

2950 FOR X = 1 TO 5 

m000 IF RESOURCES(X) = "" GOTO 13050 ELSE PRINT "RESOURCE #";X; "= ";RESOURCES ( 
) 

3050 NEXT 

3100 PRINT:PRINT 

3150 INPUT "PRINT HARD COPY (Y/N)";A$ 

3200 IF A$="Y" OR A$="N" OR A$ = "n" OR A$ = “y" THEN 13250 ELSE BEEP: GOTO 131 
0 

B250 IF A$S="Y" OR AS = "y" THEN 13500 

3300 INPUT "DO YOU WISH TO SEE THE CPM TABLE WITH START AND FINISH DATES (Y OR 
-m; 6AS 

m™o50 IF AS = "N" OR A$ = "n" THEN CLS PRINT X$ " PROGRAM MENU " X$:P 
INT: PRINT:GOTO 6350 

3400 IF A$ = "Y" OR A$ = "y" THEN 20000 

3450 COLOR 12: PRINT "PLEASE ENTER Y OR N." :COLOR 7: GOTO 13300 

3500 LPRINT TAB(60); V$ 

3550 LPRINT TAB(10);"PROJECT: ";PROJ$: LPRINT 

3600 LPRINT X$ " LISTING OF ACTIVITIES " X$: LPRINT 


3700 





LPRINT TAB(44);"RESOURCES REQ'D" 
Pemeene TAB(1);"ACT.";TAB(7);:"“DESCRIPTION”;TAB(25);"DUR.";TAB(30);"UNIT COS 


mela (4s); #1";TAB(47);"#2";TAB(51);"#3";TAB(S5S);"#4";TAB(59);"#5":TAB(66);"DE 
SNDENCIES": 


PRINT 
FOR X = 1 TO N 
LPRINT TAB(1 ): LPRINT USING P1$; ACT(X); 
LPRINT TAB(7 ): LPRINT USING P2$; DESC$(X) ; 
LPRINT TAB(25): LPRINT USING P1$; DUR(X); 
LPRINT TAB(29): LPRINT USING P3$; COST(X); 
LPRINT TAB(42): LPRINT USING P1$;RESOURCE(X,1); 
LPRINT TAB(46): LPRINT USING P1$;RESOURCE(X, 2); 
LPRINT TAB(50): LPRINT USING P1$;RESOURCE(X,3) ; 
LPRINT TAB(54): LPRINT USING P1$;RESOURCE(X,4) ; 
LPRINT TAB(58): LPRINT USING P1$;RESOURCE(X,5); 
LPRINT TAB(66) ; 
FOR Y = 1 TO MM1 
IF Y = 4 OR Y = 7 OR Y = 10 THEN LPRINT TAB(66) 
A=Y+1: B=DEPON(X,A) 


LPRINT USING PS5$; DEPON(X,Y); 
IF B=0 THEN LPRINT: GOTO 14650 


134 





4550 NEXT Y 
4600 LPRINT 
4650 NEXT X 
4700 LPRINT: LPRINT 
4750 FOR X = 1 TO 5 


4800 IF RESOURCE$(X) = "" GOTO 13050 ELSE LPRINT “RESOURCE #";X; "= ";RESOURCE$ 
X) 

4850 NEXT 

4900 LPRINT CHR$(12): CLS: PRINT X$ " PROGRAM MENU neta. PRIUNGeeee RINT 
4950 INPUT "DO YOU WISH TO SEE THE CPM TABLE WITH START AND FINISH DATES (Y OR 
i : A$ 

9000 IF A$ = "Y" OR A$ = "y" THEN 20000 

5050 IF A$ = "N" OR AS = "n" THEN CLS : PRINT X$ " PROGRAM MENU mun ER 


NT:PRINT:GOTO 6350 
5100 GOTO 6350 
5150 REM KRHEKKKKKKKKKKKKKKKKRKEKKEKKKEKKEKEKCKEKKEKKKEKKEKKKKKEKKEKKKEKEKKKKKEKKKEKKKEKKKEKKEKRKKKSE 


5200 REM KKKKKKKKKKKK KKK KKKKAKKKKEKKEKKKKKKKKKKKKKKE NHN TT AN EXISTING ACTIVITY 
5250 REM KRKEKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKKKKKKKEKKKKKEKKKKKKEKEKKKESESE 


59300 CLS: INPUT "DO YOU WISH TO CHANGE THE PROJECT OVERHEAD COST, RESOURCE NAMES 


IR THE INITIAL START DATE (Y/N)";A$ 

59350 IF A$ = "Y" OR A$ = "y" OR A$ = "N" OR AS = "“"n" THEN 15400 ELSE BEEP: 
| GOTO 15300 

5400 IF AS = "N" OR A$ = “n" THEN 17050 

450 REM 


500 CLS :COLOR 14 

3550 PRINT “STRIKE RETURN TO MAINTAIN DEFAULT VALUE IN BRACKETS" 

3600 COLOR 7 

$650 PRINT :PRINT "OVERHEAD COST IN DOLLARS PER UNIT TIME IS ["OHC"]"; 
seur "" OHC1$ 

5700 IF OHC1$ = "" THEN 15800 

5750 OHC = VAL(OHC1$) 

5800 FOR X = 1 TO 5 


5850 PRINT:PRINT "RESOURCE #"X" IS ["RESOURCE$(X)"]";: INPUT "",RESOURCE1$ 
900 IF RESOURCE1$ = "" THEN 16000 

1950 RESOURCES$(X) = RESOURCE1$ 

5000 NEXT 

1050 JDATE(1) = SJDATE 

9100 X = 1 


1150 GOSUB 44050 
1200 PRINT: PRINT “THE CURRENT START DATE FOR THE FIRST ACTIVITY IS ";CALDATED; 
CALDATEM$;CALDATEY;" (Y/N). "; 


i250 INPUT "",A$ 

300 IF A$ = "" OR AS = "“"y" OR AS = “"Y" THEN 17000 

i350 GOSUB 44050 :PRINT:PRINT "WHAT YEAR DOES THIS PROJECT START [";CALDATEY; 
ee 2: INPUT ""<$31$ 

1400 IF SJ1$ = "" THEN SJ$ = STRS(CALDATEY): GOTO 16550 

2450 IF ASC(RIGHT$(SJ1$,1)) >= 48 AND ASC(RIGHT$(SJ1$,1)) <= 57 THEN SJ$=SJ1$: 

| GOTO 16550 


#500 COLOR 12:PRINT "PLEASE ENTER THE YEAR":COLOR 7:GOTO 16350 

1550 PRINT: PRINT "WHAT MONTH DOES THIS PROJECT START (ENTER VALUE OF 1 TO 12) [ 

CALDATEM$;"]" ;: INPUT "";DA1$ 

600 IF DA1$ = "" THEN A$=A$:IF DA$ <> "" THEN 16750:GOSUB 46050 :GOTO 16750 

£650 IF VAL(DA1$) >= 1 AND VAL(DA1i$) <= 12 THEN DA$ = DA1$: GOTO 16750 

#700 COLOR 12: PRINT "ENTER A INTIGER FROM 1 TO 12 TO REPRESENT THE MONTH": 

COLOR 7 : GOTO 16550 

#750 PRINT: PRINT “WHAT DAY OF THE MONTH DOES THIS PROJECT START [";CALDATED;" J] 
wane T “" ; TEAS 


is 








6800 IF TE1$ = "" THEN 16950 

6850 IF VAL(TE1$) >= 1 AND VAL(TE1$) <= 31 THEN TE$ = TE1$:GOTO 16950 

6900 COLOR 12: PRINT "ENTER AN INTIGER FROM 1 TO 31 TO REPRESENT THE DAY": 
COLOR 7:GOTO 16750 

6950 GOSUB 45100 

7000 GOTO 6150 

7050 CLS :INPUT "ENTER THE CODE NUMBER OF THE ACTIVITY YOU WISH TO EDIT. “,CHAC 

:PRINT 

7100 COLOR 14:PRINT “TO KEEP THE DEFAULT VALUE INDICATED USE THE (RETURN) KEY." 

RINT:COLOR 7 

150 FOR CH = 1 TON 

7200 IF ACT(CH) <> CHACT THEN GOTO 17300 





7250 M=CH: GOTO 17450 

300 NEXT CH 

350 COLOR 12: PRINT "CODE NUMBER DOES NOT MATCH AN EXISTING ACTIVITY": COLOR 7 

PRINT 

400 INPUT "PUSH [ENTER] TO RETURN TO MAIN MENU"; G$: GOTO 19800 

'450 PRINT “ENTER ACTIVITY CODE NUMBER: (" ACT(M) ")";: INPUT ACT1$: PRINT 

500 IF ACT1$ = "" THEN 17600 

550 ACT(M) = VAL(ACT1$) 

600 PRINT "ENTER ACTIVITY DESCRIPTION: (" DESC$(M) ")";: INPUT DESC1$: PRINT 

650 IF DESC1$ = "" THEN 17750 

‘700 DESCS$(M) = DESC1$ 

‘750 PRINT “ENTER ACTIVITY DURATION: (" DUR(M) ")";: INPUT DUR1$: PRINT 

‘800 IF DUR1$ = "" THEN 17900 

850 DUR(M) = VAL(DUR1$) 

(900 IF DUR(M)<1 THEN BEEP: GOTO 17750 

950 PRINT "ENTER ACTIVITY COST PER UNIT DURATION: (" COST(M) ")";: INPUT COST$ 
PRINT 

000 IF COST$ = "" THEN 18100 

050 COST(M) = VAL(COST$) 

100 IF COST(M)<O THEN BEEP: GOTO 17950 

150 PRINT "ENTER NUMBER OF DEPENDENCIES: (" K(M) ")";: INPUT D1$: PRINT 

200 IF D1$ = "" THEN D = K(M) :GOTO 18300 

250 D = VAL(D1$) 

300 IF D<O THEN BEEP: GOTO 18150 

350 IF D>MM1 THEN BEEP: COLOR 31: PRINT "MAXIMUM OF " MM1 “DEPENDENCIES ONLY": 

OR X=1 TO 2000: NEXT: COLOR 7: CLS: PRINT: GOTO 18150 


400 IF D <> 0 THEN 18500 
450 K(M) = O: DEPON(M,1)=0: GOTO 19500 
500 K(M) = D 
950 FOR X = 1 TO D 
600 IF D = 1 THEN DEP$ = ""; GOTO 19150 
650 IF X = 1 THEN DEP$ = "FIRST" 
700 IF X = 2 THEN DEP$ = "SECOND" 
750 IF X = 3 THEN DEP$ = "THIRD" 
800 IF X = 4 THEN DEP$ = "FOURTH" 
SO IF X = 5 THEN DEP$ = "FIFTH" 
9900 IF X = 6 THEN DEP$ = "SIXTH" 
SO IF X = 7 THEN DEP$ = "SEVENTH" 
OOO IF X = 8 THEN DEP$ = "EIGHTH" 
90 IF X = 9 THEN DEP$ = "NINTH" 
100 IF X = 10 THEN DEP$ = "TENTH" 
150 PRINT “INPUT "DEP$ " DEPENDENT ACTIVITY CODE NUMBER (" DEPON(M,X) ")";: INP 
DEPONS$: PRINT 
200 IF DEPONS = "" THEN 19300 
250 DEPON(M,X) = VAL(DEPONS) 





liG 








7 


19300 IF DEPON(M,X)<1 THEN BEEP: GOTO 19150 
1 19350 NEXT X 
19400 IF D+1>MM1 THEN 19800 
1’ 19450 FOR X = D+1 TO MM1 DEPON(M, X)=0 NEXT X 
19500 FOR X = 1 TO 5 
119550 PRINT :PRINT "THE NUMBER OF "RESOURCE$(X)" NEEDED IS ["RESOURCE(M,X)"]"; 
1} 19600 INPUT "",RESOURCE1$ 
7.19650 IF RESOURCE1$ = "" THEN GOTO 19750 
) 19700 RESOURCE(M,X) = VAL(RESOURCE1$) 
1.19750 NEXT 
19800 CLS: PRINT X$ " PROGRAM MENU " X$: PRINT: PRINT: GOTO 6350 
19850 REM xxxxuexexkkekunxener Ee RNeEeKEXxEREKEKKKEKEEKREEKEKEKEKKEEKeEKKEKEKEKEKEKEEKEEKKEKEEKEEEEKEKEKEEKESKSE 
| 19900 REM RRKKKKKKEKKKKKHKKKKKAKKKKEKKAKKKEKEEKKKEKEKKKKKKKEKEKEP IN CPM CALCULATIONS 
19950 REM xeexeexeeenekeeneuneeeeneKkKKKKEKxKEXKEREKEKEKKKXKEKKEKKEREEXKEREKKKRERKEKKEKKEKEEKEKKKKKKKKKKKKEKX 
20000 IF CALCRUN$ = "N" THEN 24950 
) 20050 CLS 
20100 COLOR 14 
20150 PRINT TAB(30) "INITIALIZING VARIABLES": PRINT 
20200 ERASE PED, ES, EF, LS, LF, TF, ACTCOST 
20250 DIM PED(MM,10), ES(MM), EF(MM), LS(MM), LF(MM), TF(MM), ACTCOST(MM) 
} 20300 CALCRUN$ = "N" 
20350 PRINT TAB(30); "“PRE-SORTING IN PROGRESS": PRINT 
| 20400 FOR PRESORT = 1 TO MM1 
| 20450 FOR X = 1TON 
) 20500 IF K(X)=0 THEN 21650 
20550 FOR Y = 1 TO K(X) 
)} 20600 FOR Z = 1 TO X 
20650 IF DEPON(X,Y) = ACT(Z) THEN 21600 
7 20700 NEXT 2 
20750 FOR ZZ = X TON 
) 20800 IF DEPON(X,Y) <> ACT(ZZ) THEN 21450 
20850 AA=ACT(X): ACT(X)=ACT(ZZ): ACT(ZZ)=AA 
| 20900 BB$=DESC$(X): DESC$(X)=DESC$(ZZ): DESC$(ZZ)=BB$ 
7 20950 CC=DUR(X): DUR(X)=DUR(ZZ): DUR(ZZ)=CC 
21000 DD=COST(X): COST(X)=COST(ZZ): COST(ZZ)=DD 
21050 EE=K(X): K(X)=K(ZZ): K(ZZ)=EE 
21100 FOR YY = 1 TO MM1 
} 21150 FF=DEPON(X,YY): DEPON(X,YY)=DEPON(ZZ,YY): DEPON(ZZ,YY)=FF 
} 21200 NEXT YY 
} 21250 FOR YY = 1 TO 5 
} 21300 GG = RESOURCE(X,YY): RESOURCE(X,YY)=RESOURCE(ZZ,YY): RESOURCE(ZZ,YY)=GG 
1} 21350 NEXT YY 
1 21400 GOTO 21650 
1 21450 NEXT 22 
} 21500 COLOR 31: PRINT "DEPENDENT ACTIVITY" DEPON(X,Y) "NOT FOUND FOR ACTIVITY" A 
rCT(X) 
} 21550 FOR DELAY=1 TO 2000: NEXT: COLOR 7: GOTO 19800 
} 21600 NEXT Y 
21650 NEXT X: NEXT PRESORT 
21700 PRINT TAB(30); “PERFORMING CALCULATIONS": PRINT 
21750 FOR X=1 TO N 
'21800 LT= ACT(X) 
21850 FOR Z = 1TON 
21900 FOR Y = 1 TO MM1 
21950 LH = DEPON(Z,Y) | 
22000 IF LH=0 THEN 22200 
22050 IF LT<>LH THEN 22150 





122100 
22150 
2200 
22250 
2300 
22350 
22400 
22450 
229500 
22550 
22600 
22650 
22700 
22750 
22800 
22850 
22900 
22950 
23000 
23050 
23100 
23150 
-3200 
23250 
3300 
13350 
3400 
3450 
-3500 
~3550 
-3600 
138650 
»3700 
#3750 
,3800 
»3850 
,3900 
13950 
‘4000 
4050 
4100 
4150 
4200 
4250 
4300 
4350 
4400 
4450 
4500 
4550 
4600 
4650 
4700 
4750 
4800 
54850 
4900 





PED(Z,Y)=X 

NEXT Y 

NEXT Z 

NEXT X 

FOR X = 1 TON 

IF K(X)=0 THEN 22650 

FOR Y = 1 TO K(X) 

J = PED(X,Y) 

IF ES(X) < ES(J)+DUR(J) THEN ES(X)=ES(J)+DUR(J) 
NEXT Y 

GOTO 22700 

ES (X)=0 

NEXT X 

FOR X=N TO 1 STEP -1 

IF X <> N THEN 22900 
LF(X)=ES(X)+DUR(X): GOTO 23400 
W=LF(N) 


FOR J=(X+1) TON 

IF K(J)=0 THEN 23300 

FOR K=1 TO K(J) 

IF PED(J,K)=X THEN 23250 

NEXT K 

GOTO 23300 

IF LF(J)-DUR(J) < W THEN W=LF(J)-DUR(J) 
NEXT J 

LF(X)=W 

NEXT X 

TT=0: JOBCOST = 0O 
FOR X = 1 TO N 
EF(X)=ES(X)+DUR(X): 
ACTCOST(X)=COST(X) *DUR(X): 
IF EF(X)>=TT THEN TT=EF(X) 


LS(X)=LF(X)-DUR(X): TF(X)=LF(X)-DUR(X)-ES(X) 
JOBCOST = JOBCOST + ACTCOST(X) 


NEXT X 

PRINT TAB(30); “SORT BY EARLY START”: PRINT 
COLOR 7 7 

FOR SORT = 1 TO MM1 

FOR X = 1 TO (N-1) 

XX=X+1 


IF ES(X)<ES(XX) THEN 24900 


AA=ACT(X): ACT(X)=ACT(XX): ACT(XX)=AA 

BB$=DESC$(X): DESC$(X)=DESC$(XX): DESC$(XX)=BB$ 
CC=DUR(X): DUR(X)=DUR(XX): DUR(XX)=CC 

DD=COST(X): COST(X)=COST(XX): COST(XX)=DD 
EE=ACTCOST(X): ACTCOST(X)=ACTCOST(XX): ACTCOST(XX)=EE 
FF=K(X): K(X)=K(XX): K(XX)=FF 

FOR Y = 1 TO MM1 

GG=DEPON(X,Y): DEPON(X,Y)=DEPON(XX,Y): DEPON(XX,Y)=GG 
NEXT Y 

HH=ES(X): ES(X)=ES(XX): ES(XX)=HH 

II=EF(X): EF(X)=EF(XX): EP(XX)=II 

JJ=LS(X): LS(X)=LS(XX): LS(XX)=JJI 

KK=LF(X): LF(X)=LF(XX): LF(XX)=KK 

LL=TF(X): TF(X)=TF(XX): TF(XX)=LL 

FOR YY = 1 TO 5 

GG = RESOURCE(X,YY): RESOURCE(X,YY)=RESOURCE(ZZ,YY): RESOURCE(2ZZ,YY)=GG 
NEXT YY 

NEXT X: NEXT SORT 


ic 





- 
peeoo 
25050 
25100 
25150 
25200 
25250 
25300 
25350 
25400 
25450 
25500 
25550 
25600 
25650 
25700 
25750 
25800 
25850 
25900 
5950 
26000 
6050 
26100 
26150 
6200 
26250 
26300 
26350 
26400 
26450 
0 
26500 


CLS 
REM 
REM 
REM 


IF GANT$ = 
IF HIST$ 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
FOR X 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


IF TF(X)=0 THEN PRINT CHR$(17): 


PRINT 


NEXT X 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


IF a= YY" 


IF AS="N" 


KEKEKKEKKKKKKKKKKKKKEKKKKKKKKKKKEKKKEKKKKKEKEKEKEKKEKKKKKKKKKEKKKKKEKKEKKEKKEEEESE 


KKKKKEKKEKKKKKEEEKEKKEKKEKKEKKKKKEKKEKEKENTSPLAY CALCULATED VALUES TABLE 


KKEKKKKKKKKKKEKKEKKKKEKKKKKKKEKEKKKKKKKKKKKKKRKEKKKKKEKKKEKKKKKKEKKKKKEKKKKEKKKKSE 


wye 
"yn 
TAB(60); 
TAB(10); “PROJECT: "; PROJ$: PRINT 

Xx$ " CPM NETWORK ANALYSIS " X$: PRINT 

ive a)- AOt. §TAB(9); “DESCRIPTION”; TAB(25):"DUR.":TAB(41);"COST": 
TAB(48);"“ES";TAB(54);"EF”";TAB(60);"LS";TAB(66);"LF";TAB(72); "TF"; 
wasp (77 ):;°"° CP” 

= 1 TO N 
ecu 4): 
TAB(9): 
mae ( 25): 
TAB 32): 
TAB(47): 


THEN 27950 
THEN 39700 
V$ 


PRINT USING P1$;ACT(X); 

PRINT USING P2$;DESC$(X) ; 

PRINT USING P1$;DUR(X) ; 

PRINT USING P7$;ACTCOST(X) ; 

PRINT USING P4$;ES(X);EF(X);LS(X);LF(X);TF(X) ; 
GOTO 25950 


"TOTAL DURATION OF PROJECT IS: PRINT 
“DIRECT COST OF PROJEGT IS: °; 
USING P6$; JOBCOST: PRINT 
“INDIRECT COST OF PROJECT IS: "; 
USING P6$; OHC * TT: PRINT 
"TOTAL COST FOR PROJECT IS: "; 
USING P6$; JOBCOST + (OHC * TT): 
"PRINT HARD COPY (Y or N)";A$ 

OR A$S="N" OR AS = “n" OR AG = "y" 


TT 


PRINT 


THEN 26500 ELSE BEEP: GOTO 264 


OR A$ = "n" THEN CLS:PRINT X$ “ PROGRAM MENU “AS: PRoihia: PR 


‘(NT:GOTO 6350 
LPRINT TAB(60);V$ 


26550 
26600 
-6650 
+6700 
'6750 
16800 
:6850 
:6900 
6950 
:7000 
7050 
7100 
7150 
7200 
7250 
7300 
7350 
7400 
7450 
7500 
7550 
7600 
7650 





LPRINT TAB(10); 
LPRINT X$ " 


"PROJECT: ";PROJS: LPRINT 


CPM NETWORK ANALYSIS " X$: LPRINT 


bpRiet TAB(4); "ACT.";TAB(9); "DESCRIPTION" ;TAB(25);"DUR.";TAB(41);"COST"; 
beeR NT TAB(48);"ES";TAB(54);"EF";TAB(60);"LS";TAB(66);"LF";TAB(72); "TF"; 
LEROONT TAB( 77); "CP" 


FOR X 


LPRINT TAB(4): 
LPRINT TAB(Q9): 
LPRINT TAB(25): 
LPRINT TAB(32): 
LPRINT TAB(47): 
IF TF(X)=0 THEN 


= 1TON 

LPRINT USING P1$;ACT(X) ; 
LPRINT USING P2$;DESC$(X) ; 

LPRINT USING P1$;DUR(X); 

LPRINT USING P7$;ACTCOST(X) ; 

LPRINT P4$;ES(X);EF(X);LS(X);LF(X);TF(X):; 
LPRINT " * ": GOTO 27250 


LPRINT 
NEXT X 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 
LPRINT 


"TOTAL DURATION OF PROJECT IS: 
Pore creeGsl OF PROJECT IS: "; 
USING P6$; JOBCOST: LPRINT 
Sivul@eucae COST OF PROVJECT 1S* "; 
USING P6$; OHC * TT: LPRINT 
"TOTAL COST FOR PROJECT IS: "; 
USING: P@O@, JOBCOST + (OHC * TT): 


mrT: LPRINT 


LPRINT 


32 





27700 
27750 
27800 
27850 
27900 
27950 
28000 
28050 
28100 
28150 
28200 
28250 
28300 
8350 
28400 
28450 
28500 
28550 
28600 
28650 
28700 
>8750 
28800 
»8850 
8900 
»8950 
»9000 
29050 
19100 
9150 
19200 
9250 
29300 
29350 
19400 
19450 
"ATH: 
29500 
29550 
,AL: 
»9600 
9650 


:9700 
19750 
‘9800 
0 

9850 


MermINT CHRS$(12): CLS: PRINT X§$," PROGRAM MENU " K$: PRINT: PRINT 
GOTO 6350 


REM KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKEKKKKKKKKKKKEKKKKKKKKKKKKKKKSE 
REM KKKKKHKKKKKKKKKKKKKHKKKKKKKKAKKKKKKKKKKK KKK KK AKKKKKKKKK CAN TT (BAR) CHART 
REM KRKKKKKAKKKAKKHKHKKKKKKKKKKKKKH KKK KK KKEKRHKKKKKKKKKKAKKKKKKKKK KKK KKK KK KK KKK 


GANT$ = "yY" 

IF CALCRUNS = "Y" THEN 20000 

GANT$ = "N" 

ffi TT 

IF TTT < S THEN TTT = 5 

IF TTT > 5 AND TTT < 10 THEN TTT = 10 

NUM = TT/5: FACTOR = S50O/TT: MA = FACTOR 

PRINT TAB(60); V$ 

meee TAB(10);"“PROJECT: “; PROJ$: PRINT 

PRINT xX$ ” GANTT (BAR) CHART " X$:PRINT :PRINT 
PRINT TAB(24);"0";TAB(33);INT(1*NUM) ; TAB(43);INT(2*NUM) ; TAB(53);INT(3*NUM) 
TAB(63);INT(4*NUM) ; TAB(73);INT(5*NUM) 

PRINT "“ACT.";TAB(6); "DESCRIPTION" ; TAB(24) ;CHRS$(195) ; 

FOR X=1 TO 11 

PRINT Y$; : PRINT U$; 

NEXT X 

PRINT 

FOR X=1 TO N 

PRINT USING P1$;ACT(X);:PRINT TAB(6);: PRINT USING P2$;DESC$(X); 
START%=(ES(X)*MA): FINISH%=((EF(X) ) *MA) 

FLOAT%=(TF(X)*MA) 

FOR BAR = START% TO FINISH*% 

IF TF(X)=0 THEN 29100 . 

PRINT TAB(24+BAR); CHR$(176);: GOTO 29150 

PRINT TAB(24+BAR); CHR$(219); 

NEXT BAR 

IF TF(X)=0 THEN PRINT: GOTO 29300 

FOR SLACK=1 TO FLOAT%: PRINT CHR$(46);:NEXT SLACK: PRINT 
NEXT X 

PRINT: PRINT 

PRINT "TOTAL DURATION: "; TT; TAB(52);"LEGEND:": PRINT 
PRINT “DIRECT COST: ";:PRINT USING P6$; JOBCOST;: PRINT TAB(58);"CRITICAL 


FOR X= 1 TO 5: PRINT CHR$(219);: NEXT: PRINT 
Poe ©NDTRECT COST: “;:PRINT USING P6$;OHC*TT;: PRINT TAB(58);"NON CRITI 


FOR X= 1 TO 5: PRINT CHR$(176);: NEXT: PRINT 

PRINT “TOTAL COST FOR PROJECT: ";:PRINT USING P6$; JOBCOST+(OHC*TT);: PRINT 
TAB(58); "FLOAT TIME: aa 

FOR X=1 TO 5S: PRINT CHRS$(46);: NEXT: PRINT 

INPUT “PRINT HARD COPY (Y or N)";A$ 

IF A$="Y" OR A$="N”" OR A$ = "y" OR AS = "n" THEN 29850 ELSE BEEP: GOTO 297 


IF A$="N" OR A$ = "n"THEN CLS:PRINT X$ " PROGRAM MENU " XS PRINT: PRI 


IT:GOTO 6350 


9900 
(9950 
0000 
0050 
5 ) 

0100 





NUM = TT/10: FACTOR = 100/TT: MA = FACTOR 
LPRINT TAB(115); V$ 


LPRINT TAB(10);"“PROJECT: "; PROJ$: LPRINT 
LPRINT TAB(30);X$ “ GANTT (BAR) CHART " X$:LPRINT :LPRINT CHR$( 
LPRINT TAB(24);"0";TAB(33);INT(1*NUM) ;TAB(43);INT(2*NUM) ; TAB(53);INT(3*NUM 


;TAB(63); INT(4*NUM) ; TAB(73) ; INT(5*NUM) ; TAB(83); INT(6*NUM) ; TAB(93);INT(7*NU 
);TAB(103);INT(8*NUM) ;TAB(113);INT(9*NUM) ; TAB(122);INT(10*NUM) 
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30150 LPRINT "ACT.";TAB(6);"DESCRIPTION"; TAB( 24) ;CHR$(195) ; 

30200 FOR X=1 TO 21 

30250 LPRINT Y$; : LPRINT U$; 

30300 NEXT X 

30350 LPRINT 

30400 FOR X=1 TO N 

30450 LPRINT USING P1$;ACT(X);:LPRINT TAB(6);:LPRINT USING P2$;DESC$(X); 

30500 START%=(ES(X)*MA): FINISH%=((EF(X))*MA) 

30550 FLOAT%=(TF(X)*MA) 

30600 FOR BAR = STARTS TO FINISH% 

30650 IF TF(X)=0 THEN 30750 

30700 LPRINT TAB(24+BAR); CHR$(176);: GOTO 30800 

30750 LPRINT TAB(24+BAR); CHR$(219); 

30800 NEXT BAR 

30850 IF TF(X)=0O THEN LPRINT: GOTO 30950 

30900 FOR SLACK=1 TO FLOAT%: LPRINT CHR$(46);:NEXT SLACK: LPRINT 

30950 NEXT X 

31000 LPRINT: LPRINT 

31050 LPRINT "TOTAL DURATION: "; TT; TAB(82);"LEGEND:": LPRINT 

31100 LPRINT "DIRECT COST: ";:LPRINT USING P6$; JOBCOST:: LPRINT TAB(88);"CRITIC 

L PATH: "; 

31150 FOR X = 1 TO 5: LPRINT CHR$(219);: NEXT: LPRINT 

31200 OPEN PROJ$ FOR APPEND AS #1:CLOSE 

$1250 LPRINT “INDIRECT COST: ";:LPRINT USING P6$;OHC*TT;: LPRINT TAB(88);"NON CR 

‘'TICAL: Blinst 

1300 FOR X = 1 TO 5: LPRINT CHR$(176);: NEXT: LPRINT 

1350 LPRINT "TOTAL COST FOR PROJECT: "::LPRINT USING P6$;JOBCOST+(OHC*TT):;:: 
LPRINT TAB(88); “FLOAT. TIME: ey 

(1400 FOR X=1 TO 5: LPRINT CHR$(46);: NEXT: LPRINT: LPRINT CHR$(18) 

11450 LPRINT CHR$(12):CLS:PRINT X$ " PROGRAM MENU " X$:PRINT: PRINT 

31500 GOTO 6350 


,1550 REM KEKKKKKEKEKEKEKKKKKKSKEKKSEKEKKKKKKKKKKKKKKEKRKKKRKSKKEKKEKKKKKKKEHKKKKKEKEK KS 
1600 REM REKKKKKKKEKKKKKKKKEKKKKKKEKKKKKKKKKKKEKKKKEKKEKAKKEKENEL ETE AN ACTIVITY 
1650 REM KEKKKKKEKKKKKKKKKKKKKKKKKEKKKEKKKKKEKKKKRKKKKKKEEKKKSKKKKKEKKEKKEEKKETKEKK SE 


1700 CALCRUN$ = "yY" 

1750 HISTCALC$ = "yY" 

1800 INPUT "ENTER CODE NUMBER OF ACTIVITY YOU WISH TO DELETE";DELACT:PRINT 
1850 FOR DEL = 1 TON 

1900 IF ACT(DEL) <> DELACT THEN GOTO 32050 

1950 IF DEL = N THEN GOTO 32500 

2000 GOTO 32200 

2050 NEXT DEL 

2100 COLOR 12:PRINT “CODE NUMBER DOES NOT MATCH AN EXISTING ACTIVITY":COLOR 7: 
PRINT 

2150 INPUT "PUSH [ENTER] TO RETURN TO MAIN MENU";AB$: GOTO 19800 

2200 FOR X = DEL TO (N-1) 

2250 ACT(X)=ACT(X+1): DESC$(X)=DESC$(X+1): DUR(X)=DUR(X+1) 

2300 COST(X)=COST(X+1): K(X)=K(X+1) 

2350 FOR AC = 1 TO MM1: DEPON(X,AC)=DEPON(X+1,AC): NEXT AC 

2400 FOR AC = 1 TO MM2: RESOURCE(X,AC)= RESOURCE(X+1,AC):NEXT AC 

2450 NEXT X 

2500 N=N-1 : GOTO 6250 


2550 REM KEKKKKKKKKKKKEKKKKKKKKKKKEKKKKKKKEKKKEKKKKKKAKKKEKKEKKKKKEKKEKKKKKKKKKHKKEEKESE 
2600 REM KREKKKKKKKKKK KKK EKKKEKKKEKKKEKEKRKKKKKEK KEKE KKKEKEEOCAVE DATA ON FILE ? 
2650 REM KEKKKKKKKKKKKKKKKKKKKKKRKKKKKEKKKKKKKKKKKKKEKKKEKEKEKHKKKEKKKEEHKKEKKKEEEEES 


2700 PRINT 
¢750 IF NEWPROJ$ = "Y" THEN 34150 
2800 PRINT "DO YOU WISH THIS DATA TO REPLACE THE PREVIOUS DATA ON FILE (Y/N)"; 
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32850 INPUT A$ 

32900 IF A$ "Y" OR A$ = "y" THEN GOTO 34150 

32950 IF A$ = "N" OR A$ = "n" THEN GOTO 33050 

33000 PRINT "ANSWER Y OR N.": BEEP: GOTO 32800 

33050 PRINT 

33100 INPUT "WHAT DO YOU WISH TO CALL THE NEW PROJECT FILE (MAXIMUM 8 LETTERS)"; 
PROJ$ 

33150 IF PROJ$ = "" THEN INPUT "PLEASE START THE PROJECT NAME WITH A LETTER. ", 

>ROJ$ : GOTO 5200 

33200 IF LEN (PROJ$) > 8 THEN INPUT “PLEASE ENTER A NAME WITH NO MORE THAN 8 CHA 

RICTERS. ", PROJ$ : GOTO 5200 

$3250 IF ASC(LEFT$ (PROJ$,1)) < 65 OR ASC(LEFT$ (PROJ$,1)) >122 THEN INPUT " 





»LEASE START THE PROJECT NAME WITH A LETTER. ",PROJ$ :GOTO 5200 

$3300 IF ASC(LEFT$ (PROJ$,1)) > 90 AND ASC(LEFT$ (PROJ$,1)) < 97 THEN INPUT " 
PLEASE START THE PROJECT NAME WITH A LETTER. ",PROJ$ : GOTO 5200 

33350 NEWPROJ$ = "Y" 

13400 IF PROJ$ = “PROJLIST" THEN BEEP: INPUT "PLEASE USE ANOTHER NAME", PROJ$ 
3450 MATCH$ = "N" 

'3500 FOR X = 1 TO LEN(PROJ$) 

13550 LOWERCASE = ASC(MID$(PROJ$,X,1)) 





3900 


PLASE USE ANOTHER. 


IF LOWERCASE >= 
ELSE UPPERCASE = 
MID$(PROJ$,X,1) = 


97 AND LOWERCASE <= 
LOWERCASE 
CHR$ (UPPERCASE) 


122 THEN UPPERCASE = LOWERCASE - 32 


NEXT X 

FOR X = 1 TO NNN 

IF PROJ$ = PROJECTNAMES$(X) THEN MATCH$ = "yY" 

NEXT X 

IF MATCH$ = "“Y" THEN COLOR 12:INPUT “YOU ALREADY HAVE A FILE BY THAT NAME. 


",PROJ$:GOTO 5200 
COLOR 7 


REM (eee REE RRS ERSESLERESESSESESSESSSESESSESSSEESSSESSESESSESSESESSEESESSESSEESESSES SSE S S | 
REM KREKKEEKAKKKEKKKAKKKKKKKEKKKAEEKAKKKKEKEKKKKKKKKEKEKEKZEAS AVE DATA ON FILE 
REM (ieee ESESEESSEEESSEESEEESEEE SESE SSESSEREERE REESE S SESS ESSESSSESSESEESSEES SESS SS S | 


CLS: PRINT "Saving data on file named ";PROJ$ 
OPEN "PROJLIST" FOR APPEND AS #2 CLOSE 

Penne O, 2, “PROJLIST" 

FOR NNN2 = 1 TO NNN 

WRITE #2, PROJECTNAMESS(NNN2),N 

NEXT 

CLOSE 

IF NEWPROJ$ = "Y" THEN 34550 ELSE 34700 

OPEN "PROJLIST" FOR APPEND AS #2 

WRITE #2, PROJS, N 

CLOSE 

CLS: PRINT "Saving data on file named ";PROJ$ 


OPEN PROJ$ FOR APPEND AS #1 :CLOSE 

OPEN *~0O",1,PROJ$ 

WRITE #1, CALCRUNS, N, TT, JOBCOST, OHC, HISTCALCS$,SJDATE 
FOR X= 1 TO 10 

WRITE #1, RESOURCES (X) 

NEXT X 

IF TT > 500 THEN TTT = 500 ELSE TTT = TT 
BOR X = 1 TO TTT 

WRITE #1, JDATE(X) 

FOR WQ = 1 TO §5 

WRITE #1, DATEREC(X,WQ) 

NEXT WQ 
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35350 
35400 
35450 
35500 
15550 
$5600 
55650 
5700 
'59750 
‘5800 
'5850 
‘5900 
5902 
5903 
5904 
5905 
5907 
5908 
5909 
5910 
5911 
5912 
5913 
5914 
5916 
5917 
5922 
5950 
6000 
5050 
6100 
6150 
6200 
6250 
5300 
6350 
6400 
6450 
5500 
6550 
5600 
3650 
700 
5750 
5800 
5850 
3900 
5950 
7000 
7050 
7100 
7150 
7200 
7250 
7300 
'350 
"'400 





NEXT X 

FOR WQ = 1 TO N 

WRITE #1, ACT(WQ),DESCS$(WQ),DUR(WQ) ,COST(WQ) ,K(WQ) 

WRITE #1, ACTCOST(WQ), ES(WQ), EF(WQ), LS(WQ), LF(WQ), TF(WQ) 
FOR X= 1 TO 10 


WRITE #1, DEPON(WQ,X),RESOURCE(WQ,X) 
NEXT X 

NEXT WQ 

FOR X = 1 TO 5 


WRITE #1, DATERECMAX (xX) 
NEXT X 
CLOSE 


REM®*® FFARR ESE 


REMEREREEREEK ERE AAA RHA AAEARAAKEKESAVE RESOURCE DATA ON SEPERATE FILE 
REMAX EEK KKKKKKKKKKAKKKEKEEKEARKKKEKEKRAEKKKKAKAKKKKKAKEKEKKRAEKKKAEARKKKKEAKEKEES 
PRINT :PRINT "SAVING DATA IN RESOURCE FILE" 

PROJDS = PROJS + ".RES” 

OPEN PROJ1$ FOR APPEND AS #1: CLOSE 

OPEN "O", 1, PROJ1$ 

Peete #1, N, SJDATE, TT 

FOR Y = 1 TO 5 

FOR X = 1 TO TT 

WRITE #1, DATEREC(X,Y) 

NEXM X 

WRITE #1, DATERECMAX(Y), RESOURCE$(Y) 

NEXT Y 

CLOSE 

CLS 


GOTO 37850 
REM FERRARA ERASER AREER EAA AAA AAA EAR AAR EEE KARE ERE ES 


REM EKKKKKAEKKEKKKAKAAAKEKKKKAAAAKKAKEKAAAEKEKEKEKKKRETRIEVE DATA FROM FILE 
REM KEKEKEKRKRESEKKEKKKKEKEKKKKKKEKKKKEKEKKEKEEEKEEKCKEKKEEKKEKREKKEREKRKKEKEKEEEKEEKEKSE 


CLS: PRINT “Opening and reading data from file named ";PROJ$ 
OPEN "I",1,PROJ$ 

INPUT #1, CALCRUN$, N, TT, JOBCOST, OHC, HISTCALC$, SJDATE 
FOR X= 1 TO 10 

INPUT #1, RESOURCE$(X) 

NEXT X 

IF TT > 500 THEN TTT = 500 ELSE TTT = TT 

FOR X = 1 TO TTT 

INPUT #1, JDATE(X) 

FOR WQ = 1 TO 5 

INPUT #1, DATEREC(X,WQ) 

NEXT WQ 

NEXT X 

FOR WQ = 1 TO N 

INPUT #1, ACT(WQ) ,DESC$(WQ),DUR(WQ) ,COST(WQ),K(WQ) 

INPUT #1, ACTCOST(WQ), ES(WQ), EF(WQ), LS(WQ), LF(WQ), TF(WQ) 
FOR X= 1 TO 10 

INPUT #1, DEPON(WQ,X),RESOURCE(WQ,X) 

NEXT X 

NEXT WQ 

FOR X = 1 TO 5 

INPUT #1, DATERECMAX(X) 

NEXT X 

CLOSE 

CLS 
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37450 
37500 
37550 
37600 
37650 
37700 
37750 
37800 
37850 

37900 


37950 
38000 


38050 
38100 
38150 
38200 
38250 
38300 
38350 
38400 
38450 
38500 
38550 
N ) 

38600 
38650 
LE. 

38700 
38750 
38800 
38850 
38900 


38950 


39000 
ENTER 
39050 


39100 
39150 
39200 
39250 
39300 
39350 
39400 
39450 
39500 
39550 
39600 





GOTO 6250 


REM KKEEKKKEKKEKKKKKKKKEKKKKKKKEKKEKKKKKEKKKKKKEKEKKKKKKKKKKEEKEKEKKKKKKKKRKKKEEKESE 
REM KRKEKKEKKKKEKKEREEREKEKKKKERKEKKKKKEEKER EEK KEKE EKEKERHKEKKEEKK END PROGRAM 
REM KEREKKKKKKKKKKKKHKKEKKKKRKKKKKKEKKKKKKKEKEKKKKKKKKKKKKKKKKKKKEKKKEKKEKKKSE 


INPUT "DID YOU WANT TO SAVE THIS DATA (Y or N)";BZ$ 

IF BZS$ = "Y" OR B2ZS = "“y" THEN 32700 

IF BZ$ = "N”" OR BZ$ = “"n" THEN 37850 

BEEP GOTO 37650 

PRINT: INPUT "DO YOU WISH TO WORK WITH ANOTHER PROJECT (Y/N)? ", A$ 

IF A$ = "Y" OR A$ = "“y" THEN CLS SOUND 300,1 SOUND 400,2 SOUND 900,3 
GOTO 3700 

IF AS = "N” OR AS = “n" THEN 38050 

COLOR 12:PRINT "PLEASE ANSWER '‘'Y' FOR YES OR 'N! FOR NO." :COLOR 7: 
GOTO 37850 


Sis: WOCATE 11,28:PRINT CHR$(2);" HAVE A NICE DAY! ";CHR$(2):KEY ON: END 
REM HEEL AREA KA ARERR AEE REE RE EKER RARER EE ERE KEKE ERR KERR KE EE 


REM#%*# FF EKKKEKEKEK EE KEK KKK KEKE KEKE KEK EEE KEKKEKEKEKEKEK TT YT DATA ON FILE 
REM*EF FTE KKTKKKKKKEKKKKKKKERKERKE TK EKKEKETKKKKEKEKKEKKK KECK KKK TREK KKEKKK EK SE 


GPEN I", 2, "“PROJLIST" 

NNN = 0O 

PRINT: PRINT “ THE PROJECTS LISTED BELOW ARE CURRENTLY ON FILE." 

PRINT PRINT ™ Project # Project Name” 

IF EOF (2) THEN CLOSE GOTO 38650 

NNN = 1 + NNN 

INPUT#2, PROJECTNAMES$(NNN), ACTNOS(NNN):PRINT: PRINT NNN, PROJECTNAMESS (NN 


GOTO 38450 


IF NNN = O THEN LOCATE 23,1: THERE ARE NO PROJECTS CURRENTLY ON FI 


INPUT " 


STRIKE RETURN FOR MENU." ,A$:GOTO 6250 


LOCATE 22,1: PRINT "DO YOU WANT TO DELETE ANY OF THE ABOVE PROJECTS" 
LOCATE 23,1: INPUT "FROM YOUR RECORDS (Y OR N)";A$ 

IF AS = "Y" OR AS = "y" THEN 38900 

GOTO 6250 


MOIGATE 22,1:PRINT" 


LOCATE 23,1:PRINT" 


LOCATE 22,1: INPUT “WHAT PROJECT DO YOU WANT TO DELETE FROM YOUR RECORDS ( 
ITS PROJECT #)"; NNN3 

IF NNN3 > NNN OR NNN < 1 THEN PRINT 
>BEEP: GOTO 39000 

KILL PROJECTNAMES$ (NNN3 ) 


"YOU MUST ONE OF THE ABOVE NUMBERS": 


PROJECTNAMES$(NNN3) = "ERASENOW" 

OPEN "PROJLIST" FOR APPEND AS #2 CLOSE 

Gren OO", 2, “PROJLIST" 

FOR NNN2 = 1 TO NNN 

IF PROJECTNAMES$(NNN2) = "“ERASENOW" THEN 39450 


WRITE #2, PROJECTNAMES$(NNN2) ,N 
NEXT 

CLOSE 

CLS 


GOTO 38250 


REMKX €# FHF KKKKKEKARKEKERKKRKEKKKKE KEKE KEKE EEE KEKE KEE ERE EREREKRKEKKEEKEEKE 


REM® ¥ © ¥ EXER EKEKEK KKK KEK KE KEKE KEKE KEKEKKEKEK EXIT STOGRAM CALCULATIONS 
REM ## FH EEK KKKKEKKEKEKKKKEKKKKEKKEKKEKEKEKKKEKEKKEKKKEKKEKRKEKKEKKEKKEKHEKEK EEK 


HIST$ = "y" 


IF CALCRUNS = "Y" THEN GOTO 19900 
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39900 IF HISTCALC$ = "N" THEN 40950 
39950 HISTCALC$ = "N" 

40000 HIST$ = "N" 

40050 COLOR 14:PRINT "PERFORMING HISTOGRAM CALCULATIONS" 

Boros FOR XX = 1 TO 5 

40150 DATERECMAX(XX) = 0 

40200 COLOR 14:PRINT:PRINT "CALCULATING FOR ";RESOURCE$(XX):COLOR 7 

40250 FOR X=1. TO TT 

40300 DATEREC(X,XX) = 0 

40350 FOR Y=1 TO N 

40400 IF X>=ES(Y)+1 AND X<=EF(Y) THEN DATEREC(X,XX)=DATEREC(X,XX)+RESOURCE(Y, XX) 
40450 NEXT Y 

40500 IF DATEREC(X,XX) > DATERECMAX(XX) THEN DATERECMAX(XX) = DATEREC(X, XX) 
40550 JDATE(X) = SJDATE -1 + X 

40600 IF (JDATE(X) - 365)/ 1000 <= INT(JDATE(X)/1000) THEN 40750 

40650 JDATE(X) = JDATE(X) + 1000 - 365 

40700 GOTO 40600 

40750 NEXT X 

40800 NEXT XX 

40850 CLS 

40900 REM * FFF KEKE KEK EEE EEE EEE KEKE EEE AREER EES 
40950 Rem ~ = +e FEKETE ESTEEEK KEKE KA EEKE ETALK CKLKKEL*XEDRINT RESOURCE HISTOGRAM 
41000 REM** €¥ # KKK KKKKKAKEKE KEKE KEKE KKK EEE EERE EAE 
41050 FOR XX = 1 TO 5 

41100 TTT = DATERECMAX( XX) 

41150 IF TTT < 5 THEN TTT = 5 

i200, 1F TTT > 5S AND TTT < 10 THEN TTT = 10 

41250 NUM =TTT/5: FACTOR = 50/TTT: MA = FACTOR 

41300 PRINT TAB(60); V$ 

41350 PRINT TAB(10);"PROJECT: "; PROJ$: PRINT 

41400 PRINT TAB(10);"RESOURCE: ";RESOURCE$(XX) 

41450 PRINT X$ " RESOURCE LISTING & HISTOGRAM “" X$:PRINT :PRINT 

41500 PRINT TAB(24);"0";TAB(33);INT(1*NUM) ;TAB(43);INT(2*NUM) ;TAB(53);INT(3*NUM) 
TAB(63);INT(4*NUM) ;TAB(73);INT(5*NUM) 

41550 PRINT "DAY";TAB(9);"DATE";TAB(17);"IN USE";TAB(24);CHR$(195) ; 

41600 FOR X=1 TO 11 

41650 PRINT Y$; PRINT US$; 

41700 NEXT X 

41750 PRINT 

41800 FOR X=1 TO TT 

41850 HOWFAR = DATEREC(X,XX) * FACTOR 

41900 GOSUB 44050 

41950 P10$ = 
#£H## £e°\ \ #4 £432 \ ee 
42000 PRINT USING P10$; X;CALDATED; CALDATEM$ ;CALDATEY:; DATEREC(X,XX);STRING$(HOWF 
AR,219) 

42050 NEXT X 

42100 INPUT "STRIKE RETURN TO CONTINUE" ,A$ 

42150 CLS 

42200 NEXT XxX 

42250 INPUT "DO YOU WANT A HARD COPY (Y/N)";A$ 

42300 IF A$ = "y" OR A$ = "Y" THEN GOTO 42500 

42350 IF A$ = “n" OR A$ = "N" THEN GOTO 6250 

42400 COLOR 12: PRINT “" YOU MUST ANSWER Y OR N. “": COLOR 7 GOTO 42250 
42450 REM** FEE KK KKKKHEKKKEKKEAK KEKE KEKE KEKE KEKE KE KEKE SE 
42500 REM*®* * ¥ EF KEE KEKE KKEKREKEKREEKEE KEKE AKEKEKKEXKT DRI NT RESOURCE HISTOGRAM 
42550 REM**#EEKKKKKKKAKKEKKKEK KEKE KEE KEKE KEKE KEKE 
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en 


42600 
42650 
42700 
42750 
42800 
42850 
42900 
42950 
43000 


~—43050 


43100 
43150 
43200 
5 ) 

43250 


FOR XX = 1 TO 5 

INPUT “PRINT NEXT RESOURCE (P), SKIP NEXT RESOURCE(S), (P/S).", A$ 

IF A$ "S" OR A$ = "S" THEN 43900 

IF A$ = "P" OR A$ = “p" THEN 42850 

COLOR 12 PRINT "ANSWER P OR S.": COLOR 7 GOTO 42650 

TTT = DATERECMAX (XX) 

IF TTT < 10 THEN TTT = 10 

IF TTT > 10 AND TTT < 20 THEN TTT = 20 

NUM =TTT/10: FACTOR = 100/TTT: MA = FACTOR 

LPRINT TAB(60); V$ 

LPRINT TAB(10);"“PROJECT: "; PROJ$: LPRINT 

LPRINT TAB(10);"RESOURCE: “;RESOURCES$ (XX) 

LPRINT X$ " RESOURCE LISTING & HISTOGRAM " X$:LPRINT :LPRINT:LPRINT CHR$(1 
LPRINT TAB(24);"0";TAB(33);INT(1*NUM) ; TAB(43);INT(2*NUM) ; TAB(53);INT(3*NUM 


);TAB(63);INT(4*NUM) ;TAB(73); INT(S*NUM) ; TAB(83); INT(6*NUM) ;TAB(93);INT(7* NUM) ;T 
AB(103);INT(8*NUM);TAB(113); INT(9*NUM) ; TAB(122);INT(10*NUM) 





43300 LPRINT “DAY";TAB(9);"DATE";TAB(17);"IN USE";TAB(24) ;CHR$(195); 
43350 FOR X=1 TO 21 
43400 LPRINT Y$; LPRINT U$; 
43450 NEXT X 
43500 LPRINT 
43550 FOR xX=1 TO TT 
43600 HOWFAR = DATEREC(X,XX) * FACTOR 
43650 GOSUB 44050 
43700 P10$ = 
Ht H ## \ \ ## ####% \ 
ae 

43750 LPRINT USING P10$; X;CALDATED; CALDATEM$ ; CALDATEY; DATEREC(X,xXX);STRING$ (HOW 
FAR,219) 
43800 NEXT X 
43850 LPRINT CHR$(12) 
43900 LPRINT CHR$(12): NEXT XxX 
43950 GOTO 6250 
AAD0O REM KKK EE KEKE REE AEE EAE EEE ATER ES 
44050 REM***************SYRBROUTINE FOR CONVERTING JULIAN DATES TO CALANDAR DATES 
44100 REM* FERRE EEE AHR EEEREEKEEAEEEEAEKEEEEREE A E KARA AKER EEE 
44150 LY = O 
44200 CALDATE1$ = STRS$(JDATE(X) ) 
44250 YR = VAL(LEFTS$(CALDATE1$, 2) ) 
44300 CALDATEY = 80 + YR 
44350 IF CALDATEY = 80 OR CALDATEY = 84 OR CALDATEY = 88 THEN LY = 1 
44400 IF VAL(RIGHTS$(CALDATE1$,3)) <= 31 THEN CALDATEMS$ = "JAN": 

CALDATED = VAL(RIGHT$(CALDATE1$,3) ) :GOTO 45000 
44450 IF VAL(RIGHTS$(CALDATE1$,3)) <= 59 + LY THEN CALDATEM$ “EB: 

CALDATED = VAL(RIGHTS$(CALDATE1$,3)) - 31 :GOTO 45000 
44500 IF VAL(RIGHT$(CALDATE1$,3)) <= 90 + LY THEN CALDATEM$ = "MAR": 

CALDATED = VAL(RIGHTS$(CALDATE1$,3)) - (59 + LY) :GOTO 45000 
44550 IF VAL(RIGHT$(CALDATE1$,3)) <= 120 + LY THEN CALDATEM$ = "APR": 

CALDATED = VAL(RIGHTS$(CALDATE1$,3)) - (90 + LY) :GOTO 45000 

4600 IF VAL(RIGHT$(CALDATE1$,3)) <= 151 + LY THEN CALDATEM$ = "MAY": 

CALDATED = VAL(RIGHT$(CALDATE1$,3)) - (120 + LY):GOTO 45000 
44650 IF VAL(RIGHT$(CALDATE1$,3)) <= 181 + LY THEN CALDATEM$ = "JUN": 

CALDATED = VAL(RIGHT$(CALDATE1$,3)) - (151 + LY):GOTO 45000 
44700 IF VAL(RIGHT$(CALDATE1$,3)) <= 212 + LY THEN CALDATEM$ = "JUL": 

CALDATED = VAL(RIGHT$(CALDATE1$,3)) - (181 + LY):GOTO 45000 
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44750 IF VAL(RIGHT$(CALDATE1$,3)) <= 243 + LY THEN CALDATEMS$ = “AUG": 


CALDATED = VAL(RIGHT$(CALDATE1$,3)) - (212 + LY):GOTO 45000 
44800 IF VAL(RIGHT$(CALDATE1$,3)) <= 273 + LY THEN CALDATEM$ = "SEP": 

CALDATED = VAL(RIGHTS$ (CALDATE1$,3)) - (243 + LY):GOTO 45000 
44850 IF VAL(RIGHTS(CALDATE1$,3)) <= 304 + LY THEN CALDATEMS SOG”: 

CALDATED = VAL(RIGHTS$(CALDATE1$,3)) - (273 + LY):GOTO 45000 
44900 IF VAL(RIGHT$(CALDATE1$,3)) <= 334 + LY THEN CALDATEM$ = "NOV": 

CALDATED = VAL({RIGHT$(CALDATE1$,3)) - (304 + LY):GOTO 45000 
44950 CALDATEM$ "DEC" CALDATED = VAL(RIGHT$(CALDATE1$,3)) - (334 + LY) 
45000 RETURN 
45050 REM * ¥ ¥  % ¥ % % ¥ 2 3 5 ee ee RE EE EE 


cnt: 7 7 CET RESELLER EEEC*SUBROUTINE TO CONVERT YR/MO/DA TO A JULIAN DATE 


A5150 REM © ¥ © % % % 2% HH HF Ke EE 

45200 LY = QO 

45250 IF RIGHT$(SJ$,1) = "“"O”" OR RIGHT$(SJ$,1) = "4" OR RIGHT$(SJ$,1) "8" THEN 
LY = 1 

45300 IF VAL(DA$) = 1 THEN DAY = 0O + VAL(TES$) 

45350 IF VAL(DA$) = 2 THEN DAY = 31 + VAL(TES) 

45400 IF VAL(DA$) = 3 THEN DAY = 59 + LY + VAL(TES$) 

45450 IF VAL(DA$) = 4 THEN DAY = 90 + LY + VAL(TE$) 

45500 IF VAL(DA$) = 5 THEN DAY = 120 + LY + VAL(TES) 

45550 IF VAL(DA$) = 6 THEN DAY = 151 + LY + VAL(TE$S) 

45600 IF VAL(DA$) = 7 THEN DAY = 181 + LY + VAL(TES$) 

45650 IF VAL(DA$) = 8 THEN DAY 212 + LY + VAL(TES) 

45700 IF VAL(DA$) = 9 THEN DAY = 243 + LY + VAL(TES$S) 

45750 IF VAL(DA$) = 10 THEN DAY = 273 + LY + VAL(TES$S) 

45800 IF VAL(DA$) = 11 THEN DAY = 304 + LY + VAL(TES) 

45850 IF VAL(DA$) = 12 THEN DAY = 334 + LY + VAL(TES) 

45900 SJDATE = VAL(RIGHT$(SJ$,1))*1000 + £=DAY 

45950 RETURN 

AGBOOO REM © % ¥ % 2% 2% 2% 2% 2% 3 3 2 3 OE RE EE 





Ar7 


i ee 7 CEES EE EL EES S EL ESF*CSUBROUTINE TO CONVERT AUG TO 7 ETC. 
46100 REMé * * # ¥ ¥ FFF HEHE KEE EEE EEE EEE KEKE KEE KE KKK KEE KEE EEE EEE KRESS 
46150 IF CALDATEM$ = "JAN" THEN DA$ = "1" 

46200 IF CALDATEM$ = "FEB" THEN DA$ = "2" 

46250 IF CALDATEM$ = "MAR" THEN DA$ = “3" 

46300 IF CALDATEM$ = "APR" THEN DAS = "4" 

46350 IF CALDATEM$ = "MAY" THEN DA$ = "5" 

46400 IF CALDATEM$ = "JUN" THEN DAS = "6" 

46450 IF CALDATEM$ = "JUL" THEN DA$ = “7" 

46500 IF CALDATEM$ = "AUG" THEN DA$ = "8" 

46550 IF CALDATEM$ = "SEP" THEN DA$ = "9" 

46600 IF CALDATEM$ = "OCT" THEN DAS = “10" 

46650 IF CALDATEM$ = “NOV" THEN DA$ = “11" 

46700 IF CALDATEM$ = "DEC" THEN DA$ = “12" 

46750 RETURN 








1 REM SEEEEKEEKEEKECECECEKRESOURCE QEEKEKEKEEEKEEEKEKKEREEEKEKEKEKEKKEKEKERE SEE 


1000 DEFINT A-Z 

1100 KEY OFF: CLS 

1200 Y$ = STRING$(4,196): U$ = STRING$(1,197) 
1250 DATEMIN = 10000: DATEMAX = 0O 

1300 NUM = O 


1400 DIM PROJECTNAMES$(50),ACTNOS(50) ,DATEREC(500,5),TDATEREC(1000) 


1500 DIM INDIVIDREC(1000,10) 
1600 INPUT "WHAT IS THE EARLIEST YEAR THAT ANY PROJECT USED WILL START" ;A$ 


1700 EARLYYEAR = VAL(RIGHT$(A$,1)) * 365 


1800 REMEE#HEEEEEEEEEEKEEE EE EER EEE EEE EERE EERE EERE REE EEE EERE RAE RAAT ERE EEF 
i SSS SSE TESS LELELHTISPLAY CURRENT FILES AND OFFER TO RETRIEVE DATA 


2000 REM*¥*®#XEKKEKEKEKKEKEEKEKKEKEKEKREKEEEEKEEKEEEEEKEKEEEEE EERE KEEEEK EEE EK EEEEEEK EE 
2100 OPEN "PROJLIST" FOR APPEND AS #2: CLOSE 

2200 OPEN "I", 2, "PROJLIST" 

2300 NNN = O 

2400 CLS 

2500 PRINT: COLOR 14: PRINT " THE PROJECTS LISTED BELOW ARE CURRENTLY ON FILE." 
2600 PRINT 

2700 PRINT " PROJECT PROJECT PROJECT PRO 
PEGCT " 

2800 PRINT " # NAME + NAME # NAME # 
NAME" 

2900 P8$ = " ### \ \ ### 8 8\ x tte \ ‘ ##e °° (\ 

a 

3000 COLOR 7 

3100 FOR X 1 TO 80 : PRINT “"-";: NEXT 

3200 IF EOF (2) THEN CLOSE : GOTO 3600 

3300 NNN = 1 + NNN 

3400 INPUT#2, PROJECTNAMES$(NNN), ACTNOS(NNN): PRINT USING P8$; NNN; PROJECTNAMES 
$ (NNN) ; 

3500 GOTO 3200 

3600 IF NNN = O THEN PRINT "YOU HAVE NO FILES TO READ": END ; 
4300 LOCATE 22,1: INPUT "WHICH PROJECT DO YOU WISH TO COMBINE (ENTER THE PROJECT 
#) "; NNNI 

4400 IF NNN1 > NNN OR NNNI < 1 THEN COLOR 12:PRINT "YOU MUST ONE OF THE ABOVE NU 
MBERS":COLOR 7:BEEP: GOTO 4300 

4500. PROJ$ = PROJECTNAMES$(NNN1): N = ACTNOS(NNN1) 


4600 REM* *** FE eEEEKEEEKEEKEKEKCEKREKCEEEEKEEKEKEEEEEEEEKE KEK EEEKHKAKEREKREEREKREKEEKREKEKS 


A700 REM*¥*##EEEKEREKEKEREREKEREREKEEERERERERESERESZTNPUT SELECTED DATA FROM FILES 
4800 REM*E# FREER EK EEEEEEKEEER EERE KKK RRR KEKE EERE EEE EEE ER ERR EERE ESS 
4900 CLS 

5100 PROJ$ = PROJ$ + ".RES" 

5200 OPEN PROJ$ FOR APPEND AS #1:CLOSE 

Sa00 OPEN "I", 1, PROJ$ 


9400 INPUT #1, N, SJDATE, TT 


5500 FOR Y = 1 TO 5 

5600 FOR X = 1 TO TT 

5700 INPUT #1, DATEREC(X,Y) 

5800 NEXT X 

5900 INPUT #1, DATERECMAX(Y), RESOURCE$(Y) 

6000 NEXT Y 

6100 PRINT "THE FOLLOWING ARE THE RESOURCES RECORDED FOR THIS PROJECT." 
6150 NUM = NUM + 1 

6200 FOR X = 1 TO 5 
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6300 
6400 
6500 
6600 
6700 
6800 

6900 
7000 
7100 
7200 


7300 


7400 
7500 
7600 


1 7700 


7800 


PRINT: 
NEXT X 


INPUT 
GOSUB 
DAY = 
FOR X 


TDATEREC(X) 
INDIVIDREC(X,NUM) = 


DAY 


IF TDATERECMAX < TDATEREC(X) THEN TDATERECMAX 
NEXT X 

IF DATEMIN > START THEN DATEMIN 
IF DATEMAX < FINISH THEN DATEMAX = 
PROJ1$ (NUM) 
RES$ (NUM) 
PRINT: 


PRINT X, RESOURCE$(X) 

“WHICH RESOURCE DO YOU WANT TO ADD TO THE REPORT (1 TO 5).";A 
8400: REM convert sjdate to start, eg 1001 changed to 0367 

1 : FINISH START + TT 

= START EARLYYEAR TO FINISH EARLYYEAR 

TDATEREC(X) + DATEREC(DAY,A) 

DATEREC(DAY,A) 


DAY + 1 


TDATEREC(X) 


START 
FINISH 


PROJ$ 
RESOURCE$(A) 
"DO YOU WANT TO PRINT THE COMPILED REPORT OR ADD ANOTHER RESOUR 


INPUT 


CE (P/A)";A$ 


7810 
7820 
7900 
8000 
8110 
8120 
8130 
8140 
8200 
8210 
8220 
8230 
8240 
8300 
8400 
8500 
8600 
8700 
8800 
8900 
9000 
9100 


' 9200 
' 9300 


9400 
9500 
9600 
9605 
9606 
9700 
9800 


' 9900 


10000 
10010 
10100 


IF A$="P" 


COLOR 
IF A$ 
IF A$ 


PRINT: 


IF A$ 
IF A$ 
COLOR 


PRINT: 


IF A$ 
IF A$ 
COLOR 


OR A$="A" OR A$="a" THEN GOTO 7900 

12: PRINT “ANSWER 'A' FOR ADD OR 'P' FOR PRINT." : COLOR 7:GOTO 7800 
"P" OR A$ “p" THEN CLS: GOSUB 9400 

"A" OR A$ = “a" THEN GOTO 8200 

INPUT "DO YOU WANT TO ADD ANOTHER RESOURCE TO THIS REPORT 
"y" OR A$ = “Y" THEN CLS GOTO 8200 

= "n" OR A$ "N" THEN GOTO 2200 

12: PRINT “ANSWER Y FOR YES OR N FOR NO":COLOR 7 GOTO 11100 
INPUT “IS THE ADDITIONAL RESOURCE FROM THIS PROJECT (Y/N)";A$ 
"y" OR A$ "YY" THEN CLS GOTO 6100 

"n" OR A$ "“N" THEN GOTO 2200 

12: PRINT “ANSWER Y FOR YES OR N FOR NO":COLOR 7 GOTO 11100 


OR A$="p" 


— 
— — 


(Y/N)";A$ 


GOTO 1800 
REM*# #4 EESEEKEKEKKKEKERKEKEKEKKEKEKKAEKKAEKKA EKA REKKEEKEKKKEEKKKKEEKKEE ES 


REM*****SUBROUTINE TO CONVERT JULEAN DATE TO LINEAR DUMBER FOR THE DECADE 
REME*ERER KEKE EASES E EERE EEE EE EK EE HEX 


YR = 
IF YR 
IF YR 
i ee 
START 
PRINT 


RETURN 


INT(SJDATE/1000) 

>= 0 AND ((SJDATE / 1000) - 
>= 4 AND ((SJDATE / 1000) - 
>= 8 AND ((SJDATE / 1000) YR)* 1000 > 59 THEN LY = 3 
INT(SJDATE/1000)*365 +LY+ ((SJDATE/1000) INT (SJDATE/1000) ) *1000 
YR, (SJDATE/1000-YR)*1000,LY,SJDATE,START 


YR)* 1000 > 59 THEN LY 1 


YR)* 1000 > 59 THEN LY 2 


— —_ 
— 


REM***¥¥¥¥XEKEEKEKEREKKKEREKCEEEKSEKRKKEKREKREKEKKEKREKEEKKKSEKEKREKEKEKEEEEEKREKE 


REM*** FF EKEKKKKKKEKRKAKAEKKKEKKEKKAKKKEEKAKKSEKEEKKECSIYRROUTINE TO PRINT REPORT 
REM*® *®#¥*SSEKKKKKEEKKEEEEEEKEKKEKKEKKKAKKEKKKKSEEKEREKEKKKKKEKKEKKEKEEEKEKEKEEE 


PRINT 
PRINT 
PRINT 
FOR Z 
PRINT 


NEXT Z 


FAC! 


PRINT:PRINT " 


“RESOURCE PROJECT RESOURCE " 
“ NUMBER NAME NAME P 


" tt 
—=— = — ae = ame ss == qmen 2 —@2 2 ame = «4 qmeenm @ «2 22 22 42 =e 


1 TO NUM 
Tees); 2; [AB ( 6) ;PROJMS(Z) ; 


TAB(28);RES$(Z): PRINT 


TDATERECMAX/5: FACTOR!= 50/TDATERECMAX MA!= FACTOR! 
DATE FeREQ*D™; 


PRINT TAB(24);"0";TAB(33);INT(1* FAC! );TAB(43);INT(2*FAC! );TAB(53) ; 


Dora TAR (63); INT(4*FAC! );TAB(73);I1NT(S*FAC! ) 
Rie enna Re Ke "; TAB(24);CHR$(195) ; 
FOR X = 1 TO 11 

PRINT Y$; PRINT U$; 


10205 
10300 


10400 NEXT X 
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10450 
10500 
10550 
10560 
10600 
10700 
10710 
10720 
10730 
10740 
10750 
10760 
10770 
10780 
10790 
10795 
10800 
10900 
10910 
11000 
11100 
1110 
11120 
11130 
11200 
(11999 
12000 
12001 
12010 
12020 
12030 


12040 
12050 
12060 
12070 
12080 
12090 
12100 
12110 
12500 
44000 
44050 


44100 
44150 





N = 0 
FOR X 


DATEM 


GOSUB 12000 
GOSUB 44050 
PRINT TAB(3) ; CALDATED; CALDATEM$ ; CALDATEY;TAB(17);TDATEREC(X) ;TAB(24) ; 


LN ee 


EARLYYEAR TO DATEMAX - 


EARLYYEAR 


FOR Y 1 TO NUM 

IF Y = 1 THEN ITEM = 49 

IF Y = 2 THEN ITEM = 50 

IF Y = 3 THEN ITEM = 51 

IF Y = 4 THEN ITEM = 52 

IF Y = 5 THEN ITEM = 53 

IF Y = 6 THEN ITEM = 54 

IF Y = 7 THEN ITEM = 55 

i 8 THEN ITEM = 56 

IF Y = 9 THEN ITEM = 57 

IF Y = 10 THEN ITEM = 48 

PRINT STRINGS(CINT(INDIVIDREC(X,Y)* (FACTOR! )),ITEM); 
NEXT Y 

N = N + 1 

PRINT :NEXT X 

INPUT "DO YOU WANT TO QUIT AND RETURN TO DOS (Y/N)";A$ 
IF A$ = "y" OR A$ nye THENSELS END 

IF A$ = "n" OR A$ = “N"“ THEN GOTO 11200 

COLOR 12: PRINT "ANSWER Y FOR YES OR N FOR NO":COLOR 7 GOTO 11100 
RETURN 


REM ** * #¥¥ FHKE KSETKKKKET HK KECK KKK KK AK EK KEARSE KEK THEKT KKK KKAKKKAKEKE LESS 


eee oe eee SSeS SESS SSUBROUTINE TO CONVERT LINEAR DAYS TO JULEIN DATES 


REMASTER EEE EEE EEE EEE EEE EERE EEE EEE EEE EERE EEE EEE ES 


STARTX = DATEMIN + N 

IF STARTX >= 1 AND STARTX <= 366 THEN JDATE = 0 + STARTX: GOTO 12500 
IF STARTX >= 367 AND STARTX <= 731 THEN JDATE = 1000 + STARTX - 366 
:>GOTO 12500 

IF STARTX >= 732 AND STARTX <= 1096 THEN JDATE = 2000 + STARTX - 731 
:GOTO 12500 

IF STARTX >= 1097 AND STARTX <= 1461 THEN JDATE = 3000 + STARTX - 1096 
:GOTO 12500 

IF STARTX >= 1462 AND STARTX <= 1827 THEN JDATE = 4000 + STARTX - 1461 
>GOTO 12500 

IF STARTX >= 1828 AND STARTX <= 2192 THEN JDATE = 5000 + STARTX - 1827 
:GOTO 12500 

IF STARTX >= 2193 AND STARTX <= 2557 THEN JDATE = 6000 + STARTX - 2192 
:>GOTO 12500 

IF STARTX >= 2558 AND STARTX <= 2922 THEN JDATE = 7000 + STARTX - 2557 
:-GOTO 12500 

IF STARTX >= 2923 AND STARTX <= 3287 THEN JDATE = 8000 + STARTX - 2922 
:GOTO 12500 

IF STARTX >= 3289 AND STARTX <= 3653 THEN JDATE = 9000 + STARTX - 3287 
:GOTO 12500 

RETURN 


REM ® * ¥ © FFT KKKKKK KT KKK ATA T KETC KEKE T KKK KKKETC KK KEKE ATK HK KKKAKHKAKAKAKA KK KK KATES 


REM********#**4442*S5YBROUTINE FOR CONVERTING JULIAN DATES TO CALANDAR DATES 


REM *#* XX KKK KKAKK ARK KATATE ARATE AK KEKE KKK ATA ATA TE AA ETAT KATE AKA ESE 


LY = 0O 
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44200 
44250 
44300 
44350 
44400 
44450 
44500 
44550 
44600 
44650 
44700 
44750 
44800 
44850 
44900 


44950 
45000 


CALDATE1$ = 
YR 


STR$ (JDATE ) 
= VAL(LEFT$(CALDATE1$, 2) ) 


CALDATEY = 80 + YR 
IF CALDATEY = 80 OR CALDATEY = 84 OR CALDATEY = 88 THEN LY = 1 
IF VAL(RIGHT$(CALDATE1$,3)) <= 31 THEN CALDATEM$ = "JAN": 


CALDATED = VAL(RIGHT$(CALDATE1$,3) ) :GOTO 45000 
IF VAL(RIGHT$(CALDATE1$,3)) <= 59 + LY THEN CALDATEM$ = "FEB": 
CALDATED = VAL(RIGHT$(CALDATE1$,3)) - 31 :GOTO 45000 
IF VAL(RIGHT$(CALDATE1$,3)) <= 90 + LY THEN CALDATEM$ = "MAR": 
CALDATED = VAL(RIGHT$(CALDATE1$,3)) - (59 + LY) :GOTO 45000 
IF VAL(RIGHT$(CALDATE1$,3)) <= 120 + LY THEN CALDATEM$ = "APR": 
CALDATED = VAL(RIGHT$(CALDATE1$,3)) - (90 + LY) :GOTO 45000 
IF VAL(RIGHT$(CALDATE1$,3)) <= 151 + LY THEN CALDATEM$ = "MAY": 
CALDATED = VAL(RIGHT$(CALDATE1$,3)) - (120 + LY):GOTO 45000 
IF VAL(RIGHT$(CALDATE1$,3)) <= 181 + LY THEN CALDATEM$ = "JUN": 
CALDATED = VAL(RIGHT$(CALDATE1$,3)) - (151 + LY):GOTO 45000 
IF VAL(RIGHT$(CALDATE1$,3)) <= 212 + LY THEN CALDATEM$ = "JUL": 
CALDATED = VAL(RIGHT$(CALDATE1$,3)) - (181 + LY):GOTO 45000 
IF VAL(RIGHT$(CALDATE1$,3)) <= 243 + LY THEN CALDATEM$ = "AUG": 
CALDATED = VAL(RIGHT$(CALDATE1$,3)) - (212 + LY):GOTO 45000 
IF VAL(RIGHT$(CALDATE1$,3)) <= 273 + LY THEN CALDATEM$ = "SEP": 
CALDATED = VAL(RIGHT$(CALDATE1$,3)) - (243 + LY):GOTO 45000 
IF VAL(RIGHT$(CALDATE1$,3)) <= 304 + LY THEN CALDATEM$ Gio sit 
CALDATED = VAL(RIGHT$(CALDATE1$,3)) - (273 + LY):GOTO 45000 
IF VAL(RIGHT$(CALDATE1$,3)) <= 334 + LY. THEN CALDATEM$ = "NOV": 
CALDATED = VAL(RIGHT$(CALDATE1$,3)) - (304 + LY):GOTO 45000 
CALDATEM$ = "DEC" CALDATED = VAL(RIGHT$(CALDATE1$,3)) - (334 + LY) 
RETURN 


it 
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